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(IBM  cards,  magnetic  tape,  conputer  printouts)  have  been  surveyed  and 
catalogued.  All  computer  pi^ograms  are  written  in  FORTRAN  (a  generail 
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been  included  and  documented.  A group  of  general  purpose  subprograms  are 
described,  along  with  their  interfaces  with  the  using  programs.  Data 
file  formats  also  have  been  developed,  along  with  programs  for  managing 
these  files.  Such  programs  and  resulting  files  are  described  in  detsiil. 
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SUBPROGRAMS 


This  volume  contains  documentation  of  standardized  FORTRAN 
subprograms.  The  documentation  for  these  subprograms  was  initi- 
ated in  1972,  when  many  of  the  basic  subprograms  from  a number 
of  computer  programs  were  put  into  a single  system.  The  acronym 
NEVUNS  is  used  to  identify  this  set  of  subprograms. 

Two  basic  types  of  subprograms  are  in  this  system,  NEVUNS 
Standard  and  NEVUNS  Compatible.  The  former  have  the  standard 
documentation  and  are,  hopefully,  carefully  tested.  The  latter 
have  the  same  external  communication  (through  block  common)  but 
may  have  less  full  documentation.  The  standard  subprograms  are 
intended  to  accomplish  a specific  purpose  which  could  be  used 
in  a variety  of  main  programs,  whereas  the  compatible  subprograms 
represent  subprograms  taken  from  some  existing  program  because 
they  might  have  use  elsewhere. 

The  documentation  for  a NEVUNS  Standard  subprogram  consists  of 

A.  General — this  section  is  a general  description  of  the  sub- 
program Including  Intended  use  and  general  method  of 
approach. 

B.  Requirements  on  Calling  Program. 

The  parameters  which  must  be  set  by  the  calling  program  are 
defined  and  the  external  communication  described.  The  external 
communication  is  usually  through  block  common.  An  attempt  has 
been  made  to  group  in  a common  block  similar  types  of  variables, 
thus  the  same  common  blocks  may  be  used  in  several  subprograms 
but  some  variables  may  not  be  used  in  a particular  subprogram. 


Only  those  In  use  In  a particular  subprogram  are  defined  In  Its 
documentation.  If  a subprogram  requires  special  features  from 
a using  program,  such  as  Initializing  calls,  these  must  be 
specified  here. 

C.  Algorithm  Implemented 

This  section  describes  the  type  of  calculation  made  In  the 
subprogram.  It  describes  the  calculation  In  mathematical  language 
and  defines  the  Internal  subprogram  variables  when  necessary  to 
readily  Interpret  the  subprogram.  If  helpful  to  understand,  this 
section  may  contain  flow  charts  or  excerpts  from  other  documents. 

D.  Program  Listing 

A listing  of  the  subprogram  forms  this  section.  A subprogram 
source  deck  should  be  filed  In  the  IDA  Civil  Defense  Card  Deck 
Library  which  Is  Identical  to  this  listing. 


SUBROUTINE  CTYDAM 


A.  GENERAL 

This  subroutine  does  calculations  for  individual  cities  as 
part  of  a blast  optimization  package.^  It  uses  the  square  root 
damage  law  to  determine  the  payoff  for  individual  weapons  as  a 
function  of  the  number  of  weapons  attacking  city.  As  the 
weapons  are  added  the  weapon  payoff  is  placed  in  a storage  array, 
with  the  city  ID  placed  in  another  storage  array.  The  process 
is  continued  until  the  weapon  payoff  drops  below  some  input  value 
of  marginal  return  when  the  process  is  terminated.  After  all 

cities  have  been  treated,  all  the  weapons  ordered  in  payoff 

ernmiaeb  AuocxnoA) 

and  those  with  highest  payoff  are  selected  for  tire  final  »ee-. 

The  subroutine  includes  a terminal  ABM  price  option.  When 
this  option  is  exercised  all  weapons  up  to  a specified  number  N 
are  given  the  same  value  of  pay.  The  number  is  that  number  which 
maximizes  average  pay,  where  the  pay  is  computed  by  the  square 
root  damage  law  minus  the  price.  The  pay  assigned  is  this  maximum 
average  payoff.  Of  course,  no  weapons  are  assigned  if  the  maximum 
average  payoff  is  less  than  the  minimum  marginal  return.  After 
these  initial  weapons  are  assigned  the  optimization  proceeds  as 
usual . 

A special  procedure  is  used  for  cities  described  by  only  a 
few  tracts  where  the  square  root  damage  law  would  not  be  expected 

The  methodology  is  described  in  some  detail  in  IDA  Study  S-394, 
"Methodologies  for  Evaluating  the  Vulnerability  of  National  Systems," 
Volume  I,  by  J.  McGill,  et  al,  June  1972. 


! 


to  apply.  For  the  larger  cities  an  option  allows  varying  the 

efficiency  of  the  weapon  allocation,  through,  the  parameter  ALPHR, 

2 

as  a function  of  city  size,  weapon  CEP,  lethal  radius,  and  CEP. 
Another  special  procedure  is  used  if  a dispersion  option  is 
exercised  where  the  population  is  considered  uniform  over  a ring. 

B.  REQUIREMENTS  ON  THE  CALLING  PROGRAM 

The  communication  with  the  calling  program  is  through  block 
common.  It  is  assumed  that  data  for  all  the  cities  within  a county 
are  available  simultaneously  in  the  common  block/CITYAR/ . The 
parameters  which  must  be  defined  by  the  calling  program  are  those 
in  the  following  common  blocks: 


/COUNPR/  JCOVER 


/CITYAR/  IDCTY(K) 


an  indicator  which  is  one  if  the  county 
is  covered  by  Area  ABM,  and  zero  other- 
wise. It  is  used  as  a ploy  to  force 
bypassing  a county  if  JAAV/D  is  1.  Other- 
wise it  is  ignored. 

a city  identifier  - equal  to  100000000  x 
Area  ABM  city  No  + 10000  x County  ID  No 
+ City  ID  No 


CPRICA(K)  - the  terminal  ABM  price 

SIGXYC(K)  - product  of  NS  and  EW  standard  deviation 
of  the  city  population 

VALC(K)  - the  total  city  value  - used  as  a multiplie- 
of  the  % payoff  per  weapon 
NTRCTS(K)  - the  number  of  data  tracts  in  the  city 


NMBCTY 


the  number  of  cities  in  the  county 


2.  The  justification  for  this  is  contained  in  L.  A.  Schmidt, 
"A  Sensitivity  Analysis  of  Blast  Fatality  Calculations,  IDA 
Paper  P-76Z,  (date-) 
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/WPNPR/  DEL 
CEP 

CRTYLW 

/VULPR/  RLONE 
RLSONE 

/TMPALG/  JTABM 
JAAUD 
KRTAD 
SMLVAL 


SMLRVL 

KDISPN 

DISMIN 

KDTGT 

DISRAD 

KDSML 

KRTDAP 


ALPHDR 

The  output*  of  the 


the  weapon  reliability 
' the  weapon  aiming  error 

the  cube  root  of  the  weapon  yield 

- lethal  radius  for  a 1 MT  weapon 
the  square  of  RLONE 

if  one  includes  terminal  ABM  in  optimization, 
otherwise  not 

if  one,  do  not  attack  if  covered  by  area 
ABM,  i.e.,  JCOVERY 

if  1,  vary  ALPHR  with  city  and  weapon 
characteristics;  2,  set  ALPHR  = 2. 
minimum  value  of  marginal  return  with  a 
city  not  treated  by  square  root  law. 

' minimum  valug"of  margin<il  return ■■with-^ 
city  traatod  by  square  law 

- minimum  value  of  marginal  return  for  cities 
treated  by  square  root  law 

if  one,  use  dispersion  option 

minimum  value  (population)  of  city  to  use 

dispersion  option 

if  one,  retarget  against  dispersed  population 
if  zero,  target  against  undispersed  popula- 
tion and  evaluate  against  dispersed  population 
the  radius  of  the  dispersed  population 
if  one,  use  dispersion  option  on  small  cities 
formula  to  select  a in  dispersion  calculations 
a 0 use  a “ 0 
= 2 use  input  value 
input  value 

subroutine^  are  placed  in  the  -array  /ORDOPT/ . 


each  weapon  is  added  the  counter  LWPCT  is  incremented,  the  weapon 
is  stored  in  PAYW  and  city  ID  is  IDCIT  under  the  index. 


r 
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C.  ALGORITHMS  IMPLEMENTED 

For  simplicity,  the  changes  with  the  dispersion  option  will 
be  summarized  after  the  non  dispersion  calculations  are  described. 

If  the  area  defense  avoidance  switch,  JAAVD,is  on  and  the  site 
coverage  switch,  JCOVER,  is  on,  the  subroutine  is  exited. 

The  weapon  lethal  radius  is  converted  to  the  actual  yield  by 
multiplying  by  the  square  root  of  the  yield.  If  the  terminal 
defense  calculation  switch  is  off,  this  is  signaled  by  setting 
the  city  defense  price  to  zero.  If  the  terminal  defense  avoidance 
switch  is  on  and  the  price  is  not  zero,  this  city  is  bypassed. 

If  this  is  only  a single  tract  the  following  special  calcu- 
lation is  performed: 

An  expected  return  T1  is  calculated  by 

.p,  _ DEL-VALCCR) 

■ ;;  cpRicE  • 

- DEI" 

If  this  return  is  less  than  the  small  marginal  return  SMLVAL, 
the  city  is  bypassed.  If  not,  a number  of  weapons  equal  to 
1 + CPRICE CK) /DEL  is  added.  (In  the  absence  of  ABM,  this  is  one 
weapon.)  To  add  a weapon  counter^is  incremented,  the  pay 

liW  T>4t  IVTHE  IbC.T. 

is  set  equal  to  and  the  city  ID  is  givenA-  If  enough  city 
value  remains  so  the  expected  return  is  greater  than  SMLVAL  this 
process  is  repeated  until  this  condition  does  not  apply. 

If  there  is  more  than  one  tract  an  expected  return  from  a single 
weapon  aimed  at  the  center  of  the  city  is  calculated  by 

_ DEL-VALCCK) 

sigxyc(K)' 

i"**  ■ ■ " nf  ^ 


This  assiimes  both  the  weapon  kill  probability  distance  and  city 
population  are  circular  gaussian^. 

If  the  return  is  greater  than  2 x the  minimum  return,  SMLVAR^ 
the  square  root  law  is  used.  Otherwise,  the  previously  described 
procedure  is  used  to  add  weapons. 

For  square  root  law  calculations  if  KRSTAD  is  not  1,  ALR#R 
is  set  to  2 . If  cJ^  is  one  the  ALPAR  is  calculated  by 

2 

ALPJR  - 2. 89/(2.906-0. 66 -DEL+0. 82  (.2+0. 29  (^)  ) 


+ 0.81  log^gC- 


)>  . 


A value  of  K is  computed  by 


^ _ rlsq-del-aleBr 
^ — steYOTi — 


Ai  a function  of  number  of  weapons  added,  NW  the  value 
surviving  S,  is  computed  by 


where 


S = VALC(K)  exp (-/x) (l+/x) 


X = K’NW. 


If  there  is  no  ABM,  i.e.,  CPRICE(K)  is  zero,  weapons  are 
added  until  the  weapon  pay  drops  below  SMLRVL. 

If  ABM  is  present  the  average  return  from  NW  weapons  is  computed 
by  the  total  pay  (VALC(K)»S)  from  the  square  root  law  with  N-CPRICE(K) 
weapons.  Weapons  are  added  until  the  average  return  reaches  a maxi- 
mum. At  this  point,  if  the  average  return  is  greater  than  SMLRVL, 
all  N weapons  are  added  at  a value  equal  to  this  average  return. 


r 

1. 


T 


In  tiMrs  later  ordering  by  weapon  value  this  group  o£  weapons  will 
preserve  its  identity  as  a group  since  they  all  have  the  same  pay. 
After  this  group  of  weapons  are  added,  succeeding  weapons  are 
added} if  no  ABM  were  present  until  the  payoff  falls  below  the 
minimum  return  SMLRVL. 

The  dispersion  option  is  exerciset^  if  the  switch  KDISPN  is  on. 
cities  above  DISMIN  in  siz^  If  switch  KDSML  is  off  the  option 
is  only  used  for  those  cities  treated  by  the  square  root  law. 

For  the  small  cities  with  all  weapons  aimed  at  the  center 


where 


is  the  weapon  lethal  radius 
Dj^  is  the  dispersion  radius. 

Then  the  fraction  destroyed  by  a single  weapon  is  given  by 

f = ^d-exp(-Rg)) 

S 

The  rest  of  the  small  city  calculation  is  the  same. 

For  the  square  root  law  calculation  the  method  of  deriving 
the  square  root  law  obtains  a weapon  density  as  a function  of  position. 
This  may  be  evaluated  against  population  in  a uniform  disk.  One 
obtains  for  fraction  of  fatalities 


1 " 

f = -[A  + e -I  ] 


< 2 
X-T 


1 -/X 

-[t  + e (i-e^)]  V 


n-8 


where 


Z.StGXYTJK) 


X is  as  calculated  before. 

In  calculation  x the  following  values  of  a may  be  used 
KRTDAD  - 0 a = 2 

=1  a » 1+DEL 
* 2 a ■ input  value  ALP.4DR 

If  it  is  assumed  that  the  targeting  is  shifted  to  follow  the 
dispersed  population  then 


f * 


It 


with  a set  equal  to  one. 

The  formulas  for  the  dispersion  calculation  are  derived 
theoretically.  They  have  not  been  subject  to  the  same  experimental 
verification  as  the  square  root  law  formulas. 
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c allocates  weapons  To  each  city  using  square  root  law  until  the 

C WEAPON  return  Falls  below  scj^e  specified  value,  includes 

C terminal  ABM  CAPABILITY  ANO  SPECIAL  ROUTINES  FOR  SMALL  CITIES. 
C SMALL  CITY  ROUTINES  DIFFERENT  FROM  ALLEGRO  BECAUSE  MORE  THAN 
C ONE  WEAPON  IS  ALLOWED  ON  SMALL  CITIES. 


IS 


20 


25 


30 


35 


AO 


AS 


SO 


Sb 


DIMENSION  CPRICE(20t 

COMHON/TMPaLG/  BLK«JTABM«BLY*JAAVO.JTAVO.BLZ*KRTAO.SHLVAL*SMLRVL* 
I BLN (IB) .KOISPN.OISMlN.KOTGTtOISRAOtKOSHLtKRTOAOtALPHOR.BLX (8) 
COMMON/OROOPT/LWPCT.  PAYW(GOOO) tI0CIT(6000) .BLG(SOOO) 
COMMON/cITYAR/BLO<300).IOCTY(20).CPRICA(20) .BLE(20) .SIGXYC(20) . 

I VALC<20)t  8LF(20).NTRCTS(20)tNMBCTY 
COMMON/COUNPR/  BLH(30) t JCOVER.BLI (A) 

COMMON/WPNPR/RLA (2) tOELtCEP.BLB (20) tCRTYLW.BLJ 
COMMON/VULPR/BLCIloT) t RLONE.RLSONE 


if(jaavo.eo.i.ano.jcover.eo.I)60  to  8 

GO  TO  9 


C... .BYPASS  THIS  ON  AREA  DEFENSE  AVOIDANCE  OPTION 


8 RETURN 

9 CONTINUE 

RL  ■ RL0NE*CRTYLW 
RLSQ  ■ RLSONE*CRTYLW 
00  lO  K ■ 1.NM8CTY 

C... .BYPASS  CITY  ON  TEPMINAL  DEFENSE  AVOIDANCE  OPTION 

CPRICE(K)  a CRRICA(K) 

IF  ( JTABM  .NE.  I)  CPRICE(K)  • 0. 

IF (JTAVO.EO.l.ANO.CPRICE(K) .NE.O.)  GO  TO  10 

C....CITY  VALUE  TOO  SMALL  TO  BE  ATTACKED 

IF((OEL*  VALC(K)).LT.SMLVAL)  SO  TO  10 
IF(NTRCTS(K) .NE.I)  GO  TO  ll 

C... .SINGLE  TRACT  CITv  ASSUM  ONE  EXPLODING  BOMB  GETS  ALL  THE  VALUE 

RET  a 0EL*VALC(K) 

TI  a RET/(I.  ♦ CPRICE(K)/0EL) 

I A CONTINUE 

if(Ti.lt.smlval)  go  to  10 
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i 


i 


f 
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ITI«l.*CPRICE«K»/OEL 
OFF  ■ 0. 

DO  12  L • l«ITl 
LWPCT«LWPCT»1 

60  PAYW(LWPCT) ■T1 

IOCIT<LWPCT»«IOCTY»k) 
OFF  a off  ♦ Tl 
12  CONTINUE 
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6S 


70 


75 


80 


13  CONTINUE 

RES  a VALC(K)  - OFF 
PYN  a RET*RES/VALC(K) 

IF(PYN  ,lt.  smlval)  go  to  10 

LWPCT  a LWPCT  ♦ I 
PAY«(LWPCT)  a PyN 
lOCIT(LFPCT)  a IOCTyIK) 

OFF  a OFF  ♦ PYN 
60  TO  13 

11  CONTINUE 

C...  ASSUME  city  so  small  only  ONE  BOMB  IN  THE  CENTER  IS  USED 
IF(  KOISPN  ,EO.  1)  60  TO  60 

61  CONTINUE 

RETaOEL*VALC(K»/<1.386»SI6XYC(K)/RLSQ*l.) 

62  CONTINUE 

C....IF  LESS  THAN  1/2  VALUE  FROM  ONE  BOMB  IS  SO,  ROOT  LAN, 


IF( (VALC(K)-RET) .6T.2.aSMLVALI  GO  TO  20 
TIaRET/(l.*CPRICE(K) » 

85  60  TO  U 

60  CONTINUE 

C...  ONE  80MB  against  dispersed  POPULATION 
IF(  kOSML  ,NE.  1)  GO  TO  61 
IF(  vALC(K)  ,LT,  OISMIN)  60  TO  61 
90  RSRLS  a OISBAO*OlSRAOaPLSO/SIGXYClK) 

FT  a (1,  - EXP (.RSRLSn /RSRLS 
RET  a OEL*VALC«K)*FT 

60  TO  62 


20  CONTINUE 

IF(  KOISPN  ,EQ.  I)  60  TO  7o 
71  CONTINUE 
C....  NOW  USE  SORT  LAW 

100  if(krtao.eq.i)  go  to  21 

c, . .•######.. . .#••##*,*** 

ALPHR  a 2.0 

c... 

60  TO  22 

105  21  CONTINUE 

C.... INSERT  adjustments  HERE  TO  ALPMR 

ceorl»cep/rl 

SORLa.2*.290»CEORL»CEORL 
SXYRTaSQBT (SIGXyC  IK) ) 

llu  X50a2.906<.0.66*OEL*0.82wSORL*0.81»AL0610(RL/SXYR) ) 
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ALPHP-2.89/X50 
GO  TO  22 
70  CONTINUE 

C...  OISPERSION  calculation  with  original  targeting  on  GAUSSIAN  POPN. 

115  IF(  vALC<K»  .LT.  OISMIN)  Go  to  71 

TAU  ■ 0lSRA0*niSPAD/2. 

IF<  kOTGT  .eg.  1)  Go  TO  72 
T*US  ■ TAU*TAU 
EXPT  ■ EXP(TAU) 

120  1F<  kPTOAO  .NE.  0)  GO  TO  13 

ALPHR  ■ 2.0 
GO  To  22 

73  CONTINUE 

IF(  kMTOAO  .NE.  1)  60  TO  74 

12S  c....  setter  values  of  alphr  might  be  USEO 

ALPHR  ■ 1.  ♦ OEL 
GO  To  22 

74  CONTINUE 
alphr  ■ ALPHOR 

130  GO  TO  22 

72  CONTINUE 

c...  shift  targeting 

ALPHR  a 1. 

GO  TO  22 
135 

22  CONTINUE 

XXKmRLSQ*0EL*ALPH«/SlGX7C iK) 

TOTPAYbO. 

AVGROaO. 

140  XNWal. 

SUROLObVALC(K) 

IPENaO 


1*5 


ISO 


155 


160 


16S 


25  CONTINUE 

C....  NOW  NEW  VALUE  OF  NO,  OF  WEAPONS 

XXaXXKaXNW 

SXXaSORTCXX) 

IF  ( KDISPN  .EO.  1)  GO  TO  flO 
81  CONTINUE 

SUWavALC«K)*EXP(-SXX)4(l.*SXX) 
90  CONTINUE 

PAYaSUROLO-SUR 

TOTPAYaTOTPAY*PAY 

SUHOLOaSUR 

IF(CPRICE(K).NE.O.)  GO  TO  30 

iF(pay.lt.shlrvl)  go  to  10 

C....  ADO  WEAPON  TO  LIST 

LWPCTbLWPCT*! 

PAYW(LWPCT)aPAY 

IOCIT<LWPCT)aIOCTY(K) 

XNWaXNW*!. 
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SQUARE  ROOT  LAM  DISPERSION  CALCULATION 
CONTINUE 

IF  ( VALC(K)  ,LT.  OISMIN)  GO  TO  81 

IF(  kDTGT  ,E0.  1)  GO  TO  82 

IF(  XX  .GT.  TAUS)  GO  TO  83 

FT  ■ (SXX  * EXP(-SXX)*{  1.-  EXPT))/TAU 

SUR  > VALC(K»  *(1.  - FT) 

GO  TO  90 
CONTINUE 

FT  ■ (TAU  ♦ EXP(-SXX)*(1.  - EXPT))/TAU 
SUR  a VALC(K)  *(1,  - FT) 

GO  TO  90 
CONTINUE 

SUR  a VALC(K)»  (1,  - XX»ALPHR) / (2,*TAU) 
GO  TO  90 


30  CONTINUE 

C..,, terminal  ABM  FROM  HERE  ON.  ASSUMES  A STRICT  PRICE  MODEL 
IF(IPEN.NE.O)  GO  TO  50 
C....  CONTINUE  TILL  AvGRN  STARTS  DECREASING 

AVGRNaTOTPAY/ (XNW*CPRICE (K) /DEL) 

IF (AVGRN, LT,AVGR0)G0  TO  35 
XNwaXNW*! , 

AVGHO«AVGRN 
GO  TO  25 

35  CONTINUE 

IF  (AVGRO.NE.O.)  GO  TO  40 

C...,  ADO  ONE  WEAPON 

IF(PAY,LT.SMLRVL)G0  TO  10 
LWPCTaLWPCT*! 

PAYW  (LWPCT)»PAY 
IOCIT(LMPCT)aIDCTY(K) 

XNWaXNW*!, 

IPENal 
GO  To  25 

40  CONTINUE 

C....ADD  WEAPONS  ALL  AT  AVERAGE  RETURN 

JW  a XNW  - 1,  ♦ CPRICEOO/DEL 
DO  41  IL  al.UW 
LwPCT»LWPCT*l 
PAYW(LWPCT)aAVGRO 
IDCIT(LwPCT)aIDCTY(K) 
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50  CONTINUE 

C....KEEP  ADDING  MEAPONS  UNTIL  MARGIN  RETURNS  TO  SHALL 

1F(  pay  .LT.SHLRVL)  60  TO  10 
L«PCT«LMPCT»1 
P4YH(LWPCT)»PAY 
I0C1T<L*iPCT»«I0cTY(k» 

XNWaXNH*!. 

GO  TO  25 

lO  CONTINUE 
RETURN 
END 
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SUBROUTINE  NEWCTY  C^CK  hi.) 


A.  GENERAL 

This  subroutine  reads  values  o£  latitude,  longitude,  and 
population  for  individual  tracts  of  a city  and  places  them  in 
the  storage  array  ST^^TA.  The  center  o£  gravity  of  the  population 
is  computed  and  distances  are  converted  into  miles  NS  and  EW  from 
the  center  of  gravity.  The  standard  deviation  of  the  population 
are  computed. 

B.  REQUIREMENTS  ON  CALLING  PROGRAM 

The  subroutine  assumes  data  in  standard  tract  form  in  an 
input  medium  MA.  The  file  format  is  CTRTA. 

The  calling  program  must  supply  the  variable  NNEND  in  common 
block  /TMPAND/.  If  the  city  name  is  this  value  the  subroutine 
exits  without  further  action. 

The  subroutine  supplies  statistical  values  to  the  common 
block  /CITYPR/  and  /STi«TA/. 

c 

The  following  variables  are  supplied  in  MITYPR  by  the  subroutin- 
NMCIT  city  name 

CTLAT  latitude  of  CG  of  population 

CTLON  longitude  of  CG  of  population 

CTCLAT  cos  of  latitude  of  CG  of  population 

CITSX  standard  deviation  of  EW  component  of  population 

CITSY  standard  deviation  of  NS  component  of  population 

NTRCTS  number  of  tracts  in  city 
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In  the  array  STiStTA  the  subroutine  places 

X(I)  distance^ast  of  CG  trac^  (nmi) 



Y(I)  distance  of  CG  tractj  (nmi) 

POP(I)  population  of  tract 

V(I)  population  of  tract. 

ALGORITHMS  IMPLEMENTED 


iOAH  sy/NBoi^ 

A first  record  is  read  in  '©AM  formal  if  the  first  four  -valirrs 
equal  the  VARIABLE  NNEND  the  subroutine  sets  the  variable  IPASS 
in  the  calling  sequence  to  one  and  exits.  Otherwise  the  variable 
IPASS  is  set  equal  to  zero  and  the  following  actions  are  carried 
out.  The  latitude,  longitude,  and  population  of  successive  tracts 
are  read  and  placed  in  storage  arrays  Y,  X,  and  POP.  This  is 
continued  until  a negative  latitude  is  encountered  which  terminates 
the  reading.  The  number  of  tracts^^is  counted. 

The  total  population  is  obtained  from 


NTRCTS 

TOTPOP  = I POP (I) 

I»1 

The  center  of  gravity  of  population  is  computed  by 

NTRCTS 

E Y(I)POP(I) 

FLA/TC  « T0tT(5P 

NTRCTS 

E X(I)-POPCI) 

FLfiNC  = ToTPOR  * 

The  array  V(I)  is  set  equal  to  POP(I) . 

The  units  are  converted  to  nautical  miles  on  a square  grid  by 
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Y(I)  = (Y(I) -FLATC)-60 

X(I)  = (FLONGC-.XCI)) -eO'FLFZT 

where 


FLFCTC  cos  (FLATC)  . 

Finally,  the  standard  deviations  in  the  East -West  direction 
are  computed  by 

NTRCTS  , 

I X(I)^.POP(I) 

_ 2 _ 1=1 

TOTPriP 


NTRCTS  , 

Z Y(I)^.POPd) 
^ 2 _ 1=1 

a T0TPT3P 


The  resulting  statistics  are  printed  on  the  standard  output  medium. 
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05 


10 


l5 


20 


25 


35 


40 


45 


50 


55 


subroutine  NEWCTY  (IPASS) 

C NEVUNS  standard 

C last  revised  NOV.  9»  1972 

C reads  tract  data  FROM  INpuT  MEDIUM  MA  WHERE  DATA  1$  IN  SHORT  ' 

C FORM  WITH  only  LATtLONG.POPN  FOR  EACH  TRACT.  ASSUMES  HEADER  CARO 

c has  city  name  And  a negative  latitude  is  after  the  last  tract, 

C THE  SUBHOUTINE  ALSO  COMPUTES  CENTER  OF  GRAvlTY  AND  NS  EW  SIGMAS 

C0MmUN/CITyPR/NAMEC(20) »0LA12) »TOTpOP»BLBtFLATCtFLONCtFLFCT, 
18LC(3) .SGTx,sGTY«eL0(21) .nTRCTS 
C0MM0N/STA4TA/X (4000) »Y(4000) *P0P(4000) «V(4000) 

COMMON/TMPANO/JRAO*NNENO,IPNCHA,lPUNCH,JPKTP,AOJSTFtLSTAPE«LSTc 
1 «nsp»oEshx,fmaxwp 
C0MM0N/I0PR/RLE.MQ*8LF»MP,8L6<I4> 

XSO  a 0, 

YSQaO, 

FLATC  a 0. 

FLOnGC  a 0, 

TOTPOP  a 0, 

REA0(MP*3» (NAMEC(I) *I  a j.Jo) 

3 FORmAT(<0A*) 

C IFITHIS  IS  the  last  CITY  AND  CITY  NAME  IS  NNEND  RETURN  WITH 

C IPASS  a I.  OTHERWISE  IPASS  a 0 

IPASS  a 0 

IF(  NAmEC<1)  - NNeNO)d03»300»803 
300  continue 
IPASS  a i 
RETUHN 

«03  continue 
I a 1 

11  continue 

REAO  (mP,4)  Y(I) ,X(I) , POP(I) 

4 FO«MAT<  2Flo.5tFIO.O) 

C TERMINATE  city  read  rY  NEGATIVE  LAtITOdE 

IF(Y(D)  6,5,5 

5 continue 

FLATC  a FLATC  ♦ Y(I)*P0PCI) 

FLONGC  a FlonGC  ♦ X(I)  • POPII) 

TOTpOP  a ToTPOP  ♦ POP(I) 

I » I ♦ I 
GO  TO  ll 

C REaoING  completed  NOW  COMPUTE  STATISTICS  AND  FILL  aHRAYS 

6 continue 

NTRCTS  a I , 1 
FLATC  a fLATC/TOTPOP 
FLONGC  a FlonGC/TOTPOP 
FLFCTacOS  (FLATC«3, 14159/180.) 

DO  150  lal.^TRCTS 
V(I)aPpP(I, 

X(I)  a (-X(i)  * FLONGC) *60. *FLFCT 
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60 


65 


70 


75 


Y(1)«1V(I)-FLATO*60. 

XSOaASO^X  < I ) *X ( n *POP (I) 

YSaaYSO«Y(I)*Y(I>*POP(I) 

150  continue 

XSO  ■ XSQ  /ToTPOP 
YSO  a ySq/tOT^OP 

SGTxaSoRT  (X50)  I 

SGTY«SOdT  (YSQ>  ! 

C OUTPUT  Tract  statistics  on  standard  output  medium 
WR1TE(M<J,27) 

27  FORMAT(  irti,  ///////) 

wRITE(mO,21)  (NAMECd)  •!  a 1.15) 

21  FORMAT (IhO,  34MNEW  TRACT  DATA  FOR  THE  CITY  NAMED  ,15A4> 

WRITE (mO, 22)  FUATC*FL0n6c, TOTPOP, NTHCTs 

22  FORMAT (iH  ,i2HLATITU0£  is  ,FB.S,AX, 13hL0NGITUDE  Is  • F9,5,  ,4X, 

I 20HToTaL  population  is  ,F9,0,4X«i3HNo.  TRACTS  IS  ,15) 

WRITE  (Mo«23)  SGTX.SGTY 

23  format ( iH  ,32hST0,  UEV,  in  E - w DIRECTION  Is  «F9,5«  4X* 

132HST0,  OEV,  IN  N “S  direction  IS  *FR,5  > 

RETURN 
END 
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SUBROUTINE  OPTWPN  C^cA: 


A.  GENERAL 

This  subroutine  optimizes  the  laydown  of  weapons  in  a city 
to  maximize  blast  kill.  The  optimization  method  is  taken  from 
the  program  DB2SEL,  originally  deaef ibed  at  IDA  by  H.  Everett 
in  1964.  This  program  has  seen  extensive  use  with  detailed  analysis 
of  results. 

One  input  to  the  subroutine  is  a set  of  points  with  values 
associated  with  each  point.  The  primary  use  has  been  to  have  these 
points  represent  census  tracts.  The  subroutine  is  also  given 
probability  of  kill  vs.  distance  curves.  Weapons  are  sequentially 
optimized  in  position,  with  each  weapon  being  located  to  maximize 
expected  kill.  After  each  weapon  is  located,  the  expected  loss 
in  value  is  subtracted  from  each  point.  Thus  each  weapon  is 
optimized  against  the  expected  surviving  value  from  all  previous 
weapons . 

The  location  of  each  weapon  is  found  by  evaluating  the  payoff 
to  the  weapon  at  each  of  a set  of  grid  points,  and  choosing  that 
point  which  maximizes  payoff.  A fin/er  grid  is  searched  in  the 

vicinity  of  the  located  point  to  refine  the  optimum  location. 

A 

If^jlocal  minima  had  been  missed  » later  weapon  would  have  larger 
payoff  than  an  earlier  one.  In  such  a case  the  string  of  earlier 
weapons  with  smaller  payoff  would  be  removed  and  the  search  be 
done  from  the  earlier  point  using  the  just  located  weapon  with 
a larger  payoff. 
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B.  REQUIREMENTS  ON  CALLING  PROGRAM 

The  calling  program  is  required  to  provide  locations  and 
values  at  each  tract  point  / the  common  block  /ST?4tA/,  The 
arrays  of  kill  probability,  distance  squared  and  first  differences, 
i.e.,  PKL,  DSQL,  DPKL,  and  DDSQL  must  be  provided  in  the  common 
block  /PKPR/  as  well  as  the  number  of  entries  in  the  array)  NDS, 
and  the  maximum  blast  screening  distances,  UMAX.  In  the  array 
/CITYPR/  the  city  name,  center  of  gravity  and  standard  deviation 
of  population,  as  well  as  the  total  population  and  number  of 
tracts  are  also  needed.  In  the  common  block  /WPNPR/  the  weapon 
reliability  must  be  defined. 

In  the  common  block  /TMPAND/  the  values  of  DESMX  and  MAXWP 
determine  the  number  of  weapons  to  be  allocated.  The  optimization 
is  stopped  when  either  the  payoff  for  the  last  weapon  falls  below 
DESMX  or  the  number  of  weapons  allocated  becomes  more  than  FMAXWP. 
The  parameters  IPUNCH  controls  final  printout.  An  absolute,  value 
of  IPUNCH  not  equal  to  1 suppresses  punching,  while  a negative 
value  suppresses  printing  results. 

’me. 

The  subroutine  has  parameters  NMSH  and  NWOPT  with  calling 
sequence  NMESH  is  1/2  the  number  of  mesh  lines  in  each  direction. 
Setting  NMESH  equal  to  0 gives  a grid  spacing Aequal  to  they^ lethal 

••<7X6  OvTTwt 

radius.  Setting  NWOPT  equal  to  1 lists>jthe  location  for  each 
weapon  and  the  optimization  proceeds,  mm  allows  observing  how  many 
weapons  are  removed  by  the  optimization  process. 

The  subroutine  returns  values  of  weapon  locatia^^^f  the  array ^ 
•V*  and  payoff  in  the  common  block  /WPNPRB/.  The  values'^in  the 
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common  block  SwItA  are  the  surviving  population  after  the 
optimization.  As  mentioned,  the  subroutine  will  also  punch 
cards  with  weapon  locations  if  requested. 

C.  ALGORITHMS  IMPLEMENTED 


A quantity  DZER  is  determined ygs  close  to  the  mean  lethal 

RS*  . . 

as  that  distance  in  the  kill  array  which  yields  a kill 

probability  (from  the  array  PK)  less  than  1/2  the  kill  probability 
of  the  2Sth  element  (near  the  weapon  aim  point).  The  parameter 
STMIN  is  a minimum  spacing  of  interest  and  is  set  equal  to  1/8  DZER. 

If  the  calling  parameter  of  the  subroutine  NMESH  is  not  zero 
this  value  is  used  as  the  number  of  mesh  points.  If  it  is 
than  the  number  of  mesh  points  NMESH  is  computed  as  the  largest 
integer  less  than  or  equal  to  p 

2 

JTY 

TJTnr 


where  SGTX  and  SGTY  are  the  city  standard  deviation  of  population. 

This  value  of  NMSH  should  offer  an  acceptable  compromise  between 
time  spent  in  mesh  searching  and  time  spent  in  replacing  removed 
weapons . 

An  initial  grid  spacing  in  the  x (E-W)  and  y (N-S)  direction 
is  now  determined  by  divider  taking  the  largest  integer  less  than 
or  equal  to  NMSH3  and  dividing  SGTX  and  SGTY  by  this  value.  Thus, 
for  example,  if  NMSH  is  divisible  by  three  the  x grid  spacing,  xs, 
is  3 X SGTy/NMSH. 

If  the  grid  spacing  is  less  than  STMIN  it  is  repaaf  dly 
doubled. 
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For  each  weapon  optimized  the  following  procedure  is  followed: 

The  initial  aim  point  is  set  6 grid  spacings  below  and  6 grid 
spacings  to  the  left  of  the  population  center  of  gravity  . The 
aim  points  are  moved  across  the  grid  until  they  are  6 to  the 

right,  then  each  line  is  searched  untill  it  is  6 above  the  C^. 

2 

Thus,  the  total  number  of  points  searched  is  (2*NMSH+1)  . This 
occurs  over  an  area  within  3 standard  deviations  of  the  population 
center  of  gravity. 

For  each  aim  point  the  weapon  pay  is  determined  for  these 
tracts  with  a square  of  side  2 DMAX  centered  at  the  aim  point. 

The  square  of  the  distance  is  computed  for  these  tracts  and  the 
kill  probability  associated  with  this  distance  is  found  by  linear 
interpolation  in  the  array  PK  and  DSQ.  This  kill  probability 
multiplied  by  weapon  delivery  probability,  DEL,  and  the  current 
tract  value  to  obtain  an  expected  value  destroyed.  This  is  summed 
over  all  tracts  to  obtain  a value  destroyed  (PAY)  at  each  grid 
aim  point.  The  maximum  of  this  aim  point  is  found. 

For  the  aim  point  the  grid  spacings  xs  and  ys  are  divided  by 
three  and  a 5x5  grid  centered  on  the  aim  point  is  searched,  and 
a new  maximum  is  found  in  this  finer  grid.  If  the  finer  grid 
spacing  is  larger  than  the  minimum  value  STMIN  the  process  is 
repeated  with  finer  grids  until  a small  enough  grid  has  been 
searched. 

The  payoff  from  the  current  weapon  is  compared  with  the  payoff 
of  the  previous  weapon.  If  it  is  greater  the  previous  weapon  is 
removed  from  the  weapon  list.  The  value  is  restored  by  computing 
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the  survival  probability  at  each  point  an^*  dividing  the  value  by 
the  survival  probability.  The  next  previous  weapon  payoff  is 
again  compared  and  all  weapons  are  removed  until  one  with  greater 
payoff  than  the  previous  weapon  is  found.  This  procedure  insures 
that  local  minima  are  not  missed  in  the  searching  process. 

The  current  weapon  is  added  to  the  weapon  list.  The  value 
remaining  for  each  tract  is  reduced  by  computing  the  kill  probability, 
P,  for  each  tract  and  multiplying  V by  1-P  for  the  new  value  of  V. 

If  the  parameter  NWOPT  equals  1 the  weapon  location  and  pay 
just  found  are  listed. 

The  process  of  optimizing  weapons  is  continued  until  either 
the  weapon  pay  computed  falls  below  DESMX  or  the  number 

of  weapons  equals  FMAXWP.  After  this  occurs,  cards  with  each 
weapon  location  are  punched  if  /IPUNCH/  is  one,  and  weapon  locations 
are  listed  if  IPUNCH  is  positive. 
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SUBROUTINE  OPTWPNiNMESHtNWOPT) 


NEVUNS  STANDARD 

LAST  REVISED  NOV.  1S«  1972 


GIVEN  VALUE  TRACTS  FOR  A CITY  AND  KILL  PROBABILIIY  TABLE  FOR 

WEAPONS.  THIS  Subroutine  optimizes  the  weapon  laydown. 

THIS  Subroutine  is  based  upon  the  program  ogzsel  developed  by 
H.  EVERETT  III  AND  LONG  USED  BY  IDA  AND  WSEG. 

NMESH  IS  THE  number  OF  MESH  POINTS.  NWOPT  w 1 LI^TS  EACH  WEAPON 
AS  LAIO  DOWN. 


COMMON/TMPANO/JRAD.NNENO.lPNCHA.IPuNCh.jPKTP.AOJbTFtLSTAPE.LSTC 

1 .NSP.OESMX.FMAXWP 

COMMON/PKPR/NDS.PKOO) .DELPS(30) .OSO(30) .DELOS (30) .BlA(120) .OMAx 
COMMon/ST*4Ta/X(*ooo) .Y(*000) .POP(*000) .V(*000) 
C0MM0N/WPNPR8/IwP,X2( ISO) ,YZ(150) ,PAYZ(150) .PAYZI (150) 
C0MM0N/CITYPR/NAMEC(20) .BLD(2) .totpop.ble.flatc.j-longc.flfct. 

1 BlF(3) ,S6TX.SGTY.BlG(2i) .NTRCTS 
common/wpnpr/Blm(2) , del. Bln (23) 

COmmon/10PR/SLB,mq,mS,BlC(i5) 


*3 


MAXWP  a FMAXWP 
IPUNCA  a ABS(IPUNCH) 

NMSH  a NMESH 

IF(  NWOPT  .NE.  1)  GO  TO  Al 
WRITe(MQ«  62)  (NAMEC(I).  I ■ 1.20) 

F0RMAT(1M1.///.1H0.10X.  60HWEAP0N  By  WEAPON  LAyOOwN  IN  BLAST  OPTIM 
IIZaTIOn  pop  city  oE  ./.30X.  20A*.////) 

WRITE(M0.  *3) 

format (Iho.  sh  no.  . 15H  total  value  . ishvalue  this  WPN, 

1 . 15H  WON.  longitude  . 15m  WPN.  LATlTUOE  ./  ) 

continue 


21 


22 


fino  Small  distance 

PKTAR  a PK(25)/2. 

Do  21  J 3 I.nOS 

JJ  a NOS  - J ♦ I 

1F(Pm(JJ)  .GE.PKTARI  go  to  21 

JUSE  a JJ 

GO  TO  22 

CONTINUE 

JUSE  « 1 

Continue 

DZER  ■ SQRT(OSQ(JUSEn 
STMIn  a DZER/fl. 


23 


adjust  number  of  meshes  to  give  mesh  spacing  about  equal  to 

WEAPON  )4AOIUS. 

IF(NmSH  .NE.  0)  GO  TO  23 
TEMP  a SORT (SGTX»SGTY) /DZER 
NMSH  a 3.»TEMP 

continue 
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65 


70 


C SETUP  INITIAL  MeSM 

TMP  « NMSm/3 
194  XS  ■ SGTX/TMP 

VS  ■ SGTY/TMP 

XC«o. 

YC«0. 

NX  a NMSH 
NY  a NMSH 

IF(XS-STm1n)360,360,362 
3*0  lF(YS-STMlN136i,36i,j62 
361  XSa2.*XS 
7sa2.*YS 

nX  a nX/2 
nY  a NY  /2 


75 


80 


H5 


90 


95 


100 


105 


no 


IHPal 

PAYTOTaO. 

362  CONTINUE 
PAYMAXaO. 

C EVACUATE  T5RIO  XC»XS«NX.VC. YSi NY 
C ANO  sAvE  best  If  better  PAyMAX  in  XMAx.TMAx 
l^o  FNYaNY 
FNXbnX 
NNXa2*NX*l 
xAlMaXC-<FNX*l.»*XS 
DO  l77  Kxal.NNX 
XAlMaXAlM*XS 
NNYa2*NY»l 
YAlMaYC-(FNY*l.)*YS 
DO  l77  RYal.NNY 
YAlMaYAIM*YS 
JSWal 

ASSIGN  175  TO  NEXT 
GO  TO  170 

175  IF (PAY-PAYMAX)  177,177.176 
j76  PAYMAXaPAY 
XMAxaXAlM 
YHAxaYAIM 
177  continue 

1F(X5-STMIN1  178,17»,179 
l7a  IF(YS-STMIn)  190,190, i79 
179  XSaXS/3. 

Ys»Ys/3. 

NXa2 
NYa2 
XC>X^AX 
YC*YMAx 
GO  TO  180 

190  PAYZ(lHP)aPAYMAX 
XZ(UP)»XMAx 
YZ«lWP)aYMAx 
1F(IWP-1)A12,412,409 
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409  IF (PAYZ ( IMP). PAVZ(1WP-1 1)412, 412, 410 

410  IWP«1WP-1 

c Remove  i)»p  weapon  ' 

XAlMaXZ(lWP) 

YAlMaYZ(IWP) 

JS<la3 

4SSI0N  411  TO  NEXT 
GO  TO  no 

411  p*ytot«paytot-payr 
GO  TO  190 

412  CONTINUE 

C UPOATE 

XAIMaXMAX 

YAlMaYMAX 

ASSIGN  191  TO  NEXT 

JSWa2 

GO  TO  no 

191  PAYTOTaPAYTOT*PAY 
PAYZ(IWP)aPAY 

PAYZT(laP)  a TOTPOP  - PAyTOT 

1F(  NWOPT  ,NE.  1)  GO  TO  169 
C PRINT  values  for  WEAPON  JUST  FOUND 

XZP  a XZ(IWP)/(Fl.FCTP60.)  * FtONGC 
YZP  a YZ(IWP)  /60.  * EL*TC 

WRITE(H0,203)  IwPt  pAYZTtIwP)*PAY2(IWP) ,XZP,YZP 
2>j3  FOHHATdS,  AF^S.O) 

168  continue 

IF(PAY>OESMX)200«200«192 

192  IF(IwP-mAxwP)  i?3,20o,200 

193  iwpaiwp*! 

60  TO  194 

200  continue 


c writf  final  results  of  weapon  optimization 

IF(  IPUNCA  ,EQ.  1 .OH.  IPUNCH  .GT.  0)  60  TO  45 
RETURN 

*5  CONTINUE 

IF (IPUNCA  .NE.  1)  GO  TO  46 

wrITE(MS,202) (NAMEC(I).Ial,2)  ,TOTPOP*FlAtC,FLUNOC,1wP,nTHCTS 
202  F0HMAT(  2*At2X.3ri5.6,I5,  18) 

49  continue 

IF(  tPUNCM.LT.  0)  GO  TO  47 

WMITF(M<J,5l)  (NAMEC(I),I  a 1 ,20)  .TOTPOPtFLATC.FLONGC,  SOTX.SGTY. 

1 NTflCTSflWP 

51  FORMAT ( IMl  , //////  , 20X,  33HRESULTS  OF  WEAPON  BlAsT  OPTIMIzAT 

IION  ,///,  10*,  9H  city  of  , 20A4,  //,  18MC1TY  POPULATION  a, 

2 IBM  LATITUDE  OF  CG  ■ . Fll.5,  19M  LONGITUDE  OF  CO  a ,F11.5,/, 

3 22M  E-w  POPN  STU.  OEv.  a ,F10.3,22M  n>S  POPN  SID.  DEv.  a ,F10.3, 

4 17h  NO.  OF  TRACTS  ■ ,16,///,  2OX,  16, IBM  WEAPONS  WERE  USED,//) 

WHlTE(MQt  43) 

47  CONTINUE 

DO  52  J a I,IwP 

XZP  a-XZ(l)/(FLFCT*60.)  ♦ FLONGC 
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175 


YZP  > YZ(H/60.  ♦ flatc 
1F(IPOnC4  .n£,  II  Go  TO  53 

WR1TFIMS«55)  J,  PAyzT(J),  P*VZIJ)t  KZPtYZP 

55  FOHMATl  15»*Fi5,6> 

53  continue 

IFIIPUNCh  ,LT.  0)  60  TO  5* 

WRlTe(MQ,56)  J.  PAyzT(J),  P*Y2(J)t  XZPtYZP 

56  FORMAT  I IH  , l5»*Fi5,6) 

5*  Continue 

52  continue 

RETURN 


IBO 


IB5 


I«0 

( 

1R5 


200 


?0S 


C EVALUATE  OR  UPDATE  AS  JSW«1»  OR  2 

c remove  if  jsm  is  3 recovered  pay  to  payn 

C EXIT  TO  NEXT 
170  PAY«0. 

PAYRaU. 

DO  161  lal.NTRCTS 
TEMPX  a ABscxAIm  - xU>) 

IF(  TEMPX.GT.  OmAX)  go  to  l6l 
TEMPy  a ABSCYAIm  - yUI) 

if(tempy  .gt.dmax)  go  to  1*1 

DO  a TEMPX*TEMPX  ♦ TEmPY*TEMPY 
J a I 

Continue 

J a J ♦ I 

IFIOSO(J)  ,GT,  DO)  GO  TO  16A 
P a PK(J)  *(00  - OSQ(J) >*OELPS(J)/OELDS(J) 
P a P*OEL 
PAYapAY*V(II*P 
GO  TO  (l6l»l<>0»*00l  »dSW 
*00  VPRaV(I)/  U.-P) 

pAYRaPAYR*VPR-V(I) 

VdlaVPH 
GO  TO  1<>1 

160  V(I)aV(I)*(l.-P) 

161  CONTINUE 

GO  TO  NEXTtl  175»*ll»l<»l) 

END 
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SUBROUTINE  ONEPAS  Coet/;  i^(fj 

A.  GENERAL 

This  subroutine  alters  the  values  associated  with  a number 
of  tracts  based  upon  the  input  aim  point  of  a single  weapon. 

It  is  the  same  as  a portion  of  the  subroutine  OPTWPN,  but  allows 
the  user  flexibility  in  location  of  weapons. 

The  subroutine  calling  parameters  are  the  X(E-W)  and  Y(N-S) 
coordinates  of  the  weapon  to  be  evaluated  and  a parameter  JSW. 

The  various  values  of  JSW  do  the  following: 

JSW  * 1 only  determines  weapon  payoff 

2 determine  weapon  payoff  and  remov^  value 

3 determine  weapon  payoff  and  replace* popu- 
lation as  if  weapon  is  removed 

The  calculated  weapon  payoff  is  returned  in  the  parameter 
PAY  in  the  calling  sequence. 

B.  REQUIREMENTS  ON  CALLING  PROGRAM 

Besides  the  parameters  in  the  subroutine  calling  sequence,  the 
calling  program  must  supply  the  following  block  GomputM'  variables 
in  /PKPR/  - PK,  DELPS,  DSQ,  DELDS,  UMAX 
/STYYTA/  - X,  Y,  V 
/CITYPR/  - NTRCTS 
/WPNPR/  - DLL 

¥he  itU’fl'iilLluii’Uf  LlilJ  lariabl'C"  is  the- same  as- in  jubreuiriwe 
OPTMPNT  For  values  of  JSW  ■ 2,  3 the  values  in  V are  updated. 


C.  ALGORITHMS  IMPLEMENTED 

Calculations  of  probability  of  kill  are  made  for  each  tract 
in  a square  centered  at  the  weapon  input  aim  point  XAIM,  YAIM, 

The  probability  of  kill  is  obtained  by  linear  interpolation  on 
the  distance  squared  from  the  aim  point  to  the  tract  location 
vs.  probability  of  hit  PK.  The  pay  is  calculated  as  the  kill 
probability,  P,  times  weapon  delivery  probability,  DEL,  times 
the  tract  value,  V,  and  summed  for  JSW  equals  1 or  2.  For  JSW  * 2 
the  value  V is  reduced  to 

V(l-P-DEL) . 

For  JSW  * 3 the  new  tract  value  is  V/(1-P*DEL).  The  value  of 
PAY  is  the  sximmation  of  new  tract  values  minus  old  tract  values. 
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SUBROUTINE  ONEPAS(JSB«X*IH,YAIM,paY) 

C NEVUNS  STANOAPO 

C LAST  HEVISEO  NOV.  15.  1972 

C OOES  A SINGLE  UPOATE  TPACT  BY  TRACT  FOR  BLAST  KILL  8y  AOOING  OR 
C REMOVING  A weapon 

COMMON/PKPR/BLK.PKOO)  .OELPSOO)  .OSQOO)  .OELDSOU)  ,BLA(120)  tOMAX 
COMMON/STAATA/XcAOOO) ,Y(A000) .POP(AOOO) .V(AOOO) 

COMMON/CITYPR/  BL0(55) .nthcts 
C0MM0N/I»PNPR/BL(K<2)  . 0EL.8LN(23) 

C EVALUATE  OR  UPOATE  AS  JSW»1.  OR  2 

C remove  if  JSw  is  3 rECovEHEO  pay  to  PAyh 
17o  PAY«o, 

PAYRao. 

00  161  lal.NTRCTS 
TEMPx  a ABsIXAIM  - X(I) ) 

IF<  TEMPX, 6T,  OmAx)  go  TO  l^l 
TEMPy  a ABSIyAIm  - Ydl  ) 

if(tempy  .gt.omax)  go  to  161 

00  a TEMPX*TEMPX  * TEmPY*TEMPY 
J a 1 

16*  continue 

J a j ♦ 1 

IF(OSQ<J)  .6T.  00)  GO  TO  16A 
P a Pk(J)  *(00  - OSO(J) )*OELPS(J)/OELOS«J) 
p a P*OEL 
pAYapAY*V(I)*P 
GO  TO  <l6l,16o,AoO) ,JSW 
4(10  VPRav(I)/U,-P) 

pAYRaPAyR*vPR-V(I) 

V(I)aVPH 
GO  To  l6l 

160  V<I)aV<n*<l.-P) 

161  continue 
IF(J5«.E0.3)  pay  a PAyR 
return 

ENU 
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SUBROUTINE  FL?KACV^ch.  ns) 

A.  GENERAL 

This  subroutine  computes  a table  of  probability  of  kill  or 
injury  as  a function  of  distance.  It  assumes  that  the  probability 
is  a cumulative  normal  function  of  the  logarithm  of  the  overpressure. 
The  overpressure  As  a function  of  distance  computed  on  the  basis  of 
weapon  yield  and  height  of  burst  by  the  subroutines  PROMPT  and  PDIST. 
The  effects  of  CEP  are  determined  by  numerically  integrating  the 
kill  probability  times  the  likelihood  of  weapon  impact  over  a grid. 

To  normalize  the  kill  function  the  kill  probability  is  integrated 
over  an  area.  This  area  is  compared  to  the  area  of  a circle  which 
has  as  its  radius  the  distance  at  which  the  mean  lethal  overpressure 
occurs.  The  parameter  ADJSTF  multiplies  the  differences  in  distance>f 
and  adds  this  to  the  original  value.  Thus  a value  of  zero  leaves 
the  distance  unchanged,  a value  of  1 gives  distances  which  normalize 
the  kill  function  area,  and  intermedialt  values  yield  intermediate 
distances . 

This  subroutine  produces  values  directly  of  kill  probability 
which  £^re  based  upon  the  physical  observations  of  damage  in  a fashion 

I 

f 

which  allows  the  user  the  maximum  control  in  constructing  a kill 

probability  damage  curve.  Its  use  is  preferred  to  a fit  function 

unless  many  kill  probability  tables  are  to  be  constructed  so  that 

rapidity  in  calculation  becomes  an  important  consideration. 

The  final  output  arearrays  of  kill  or  injury  probability  and 

the  square  of  the  corresponding  distance.  Arrays  of  first  differences 
4iv«7V 

are  also  eranotructed  for  rapidity  in  interpolation  \if  oie/t 


B.  REQUIREMENTS  ON  CALLING  PROGRAM 

This  subroutine  uses  conunon  blocks  TMPAND,  VULPR,  PKPR,  EFFCAL, 
and  lOPR. 

The  calling  program  must  supply  values  for  the  following  control 
parameters  in  TMPAND: 

IPNCHA  If  one  - set  of  26  cards  with  probability- 

distance  tables  is  punched 

JPKTP  If  two  - set  of  cards  with  PK-distance  tables 

is  read  and  the  subroutine  is  exited 

ADJSTF  Normalization  factor;  its  value  must  be  defined 

The  following  parameters  must  be  defined  in  VULPR 

PSI^  mean  lethal  overpressure//>s/ 

SGPSIL  Std.Dev.  on  PSIL  for  distribution  of  probability 

with  log  of  pressure 

PSINJ  Mean  injury  overpressure 

SGPINJ  Std,  Dev.  on  PSINJ 

When  the  subroutine  is  called  the  following  must  be  defined 

in  WPNPR 

CEPW  Weapon  CEP 

CRTYLW  Cube  root  of  weapon  yield 

NTYPEW  Weapon  burst  type  identifier  for  use  in  PROMPT 

0 - surface  bur5T 

1 - 10  psi  opt.  ItfAST 

The  subroutines  PROMPT  and  PDIST  and  the  function  CUMNOR  are 
needed  by  this  subroutine. 

C.  ALGORITHM-^  IMPLEMENTED 

If  the  parameter  TPRTP  is  2,  cards  are  read  with  tabular  values 


and  the  subroutine  is  exited. 


The  array  PKT  contains  the  following  26  entries  for  probability: 

.0001,  .001,  .01,  .02,  .05,  .10,  .15 90,  .95,  .98, 

.99,  .9999  . 

The  array  RLGPP  contains  the  values  of  x in  a cumulative  normal 

The  pe»eA*iiiTy  valvcx. 

distribution^  For  both  lethal  and  injury  psi  the  log  of  the 
pressure  is  calculated  by 

logjQp  * (RLGPP -SGPSIL  + 1)  logjQ(psi) 

where 

psi  is  the  overpressure  for  50*injury 

SGPSIL  is  the  standard  deviation  of  the  cumulative  normal 
distribution 

The  distance  at  which  this  pressure  occurs  is  calculated  by  the 
routine  PDIST.  (For  the  10  psi  airburst  the  distance  is  set  equal 
to  zero  if  the  pressure  is  over  30  psi.)  A table  of  distance  versus 
probability  is  printed. 

The  distance  for  the  first  probability  entry  (p  ■ .0001)  is 
set  equal  to  a very  large  value  and  for  the  26th  (p  ■ .9999)  equal 
to  0.  The  distance  for  the  24th  entry  (p  * .98)  and  25th  entry 
(p  » .99)  is  set  equal  to  1/3  and  2/3  of  the  distance  for  the  23rd 
entry  (p  * .95).  For  the  third  entry,  this  distance  is  increased 
by  4^  the  aiming  error,  SIG,  for  the  weapon  (CEP/1.1774).  These 
adjustments  are  made  to  yield  an  interpolation  table  with  better 
spacing  for  the  distance  arguments.  Since  the  probabilities  are 
about  to  be  recalculated,  no  error  is  introduced  during  this. 

Next,  a mesh  of  20  x 20  points  is  constructed  centered  at  the 
desired  ground  zero  with  a spacing  of  SIG  /2.5.  For  each  grid 
point  the  distance  from  the  grid  point  to  the  target  is  computed. 


L 


The  pressure  at  this  grid  point  is  computed  by  the  subroutine 
PROMPT,  and  the  kill  probability  is  computed  as  the  cumulative 
normal  function  of  pressure, 

Prob.cumnor ((logj^Qpressure-logj^Q  PSIL)/SGPSIL)  . 

This  probability  is  multiplied  by  the  probability  of  weapon 

impact,  assuming  weapon  delivery  errors  are  circularly  normally 

6 

distributed.  Simpson 'A  rule  is  then  used  in  two  dimensions  to 
calculate  the  integral  value.  Finally,  the  probability  values  for 
the  final  two  entries  are  set  equal  to  zero  because  of  the  large 
distance  assumed  for  the  first  distance. 

The  area  integral  of  the  probability  values  is  computed.  The 
ratio  of  this  area  to  n times  the  square  of  the  distance  for  the 
mean  overpressure  is  calculated  for  both  the  lethal  and  injury 
curves.  The  square  of  the  distances  are  increased  by  the  ratio 
minus  1 times  the  input  parameter  ADJSTF.  Normalization  values 
and  adjusted  differences  are  printed  out. 

First  differences  of  probabilities  and  square  of  the  distance 
are  calculated  for  assistance  in  rapid  interpolation  between  array 
values.  The  maximum  distance  for  which  the  kill  probability  is  not 
zero  is  given  as  DMAX. 

If  the  parameter  IPNCHA  is  one  of  the  probabilities,  values  and 
distances  are  punched  on  cards. 
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SUBROUTINE  FLPK* 

C NEVUNS  STANOARO 

C LAST  REVISEO  ON  NOV,  6.  1972 

05 

C fills  the  APRATS  OSOl.PKCI.DSQK,PKCK.DELOSI.OELP!>I.OELOSK,OELPSK 
C WITH  PPESSUPE  PK  OISTancE  RELATIONSHIPS  OIRECTLV  CaLCULATEO 

C THE  EFFECTS  OF  CEP  ARE  INCLUDED  BY  DIRECT  INTEGRATION  OF  PROBS 

10  DIMENSION  PKT(26)  « RL6PP (26) »DBL (26) »DHC (26) 

COMMON/TMPANO/JRAO.NNEND. IPNCHA.IPHNCH.JPKTP.ADJSTF.LSTAPF.LSTC 
1 .nsp.oeshx.fmaxwp 

COMMON/PKPP/NOS.PKCK(30) .QELPSK(30) . DSQK(30) .OELDSK (30) t 
1 pKCI(30),DElPSK30).  Dst)I(30),  DElOsI  (30)  ,OmA* 

15  COHMON/VULP«/PSI,SI6BL,PSINJ,SIGHC,BLANN(103) 

COmmoN/wPNPP/BLA (3) «CEP»RLB (6) *NTYPE  ♦BLC (13)  .YLONU.BLD 
COMMON/EFFCAL/BLE«YLbNO.BLF.jTINR,JHTPR»OSTP.0LG*PRESS,PRELP. 

1 HLH(li)) 

common/ IOPR/MPfMQ«MS*BNA ( 15> 

data  PKT/.OOO) ♦.001«.01*,02».05*.10».15*.20*.25*.30»,3S..40*.4S* 

1 .S0..55».60».65«.To».75*.fiO..B5*.9P*.95*.9B*.99*,9gP9/ 
data  RLGPP/-4. 41 70. -3, 2905, -2, 32635. -2, 05375. -1,64475.-1 .28155. 

1 -1.03643,-0.84162,-0,67449,-0.52440,-0.38532.-0.25335,-0,12566, 

25  2 0.0.0,12566.0.25335.0,38532.0,52440.0,67449.0.84162.1,03643. 

3 1.28155 ♦1.64475*2. 05375 *2.32635. 4. 4170/ 


IF(JPKTP  ,NE.  2)  GO  TO  1 

30  c READ  DATA  INTO  ARRAYS  AND  DO  NOT  CALCULATE  IT, 

no  S K a 1.26 

REoD(MP  .a?) J.OSOI (J) .PKCT (J)  .DSOK ( j) .PKck ( j)  . J.OELOSI ( J) . 
inELPsi (j) .deloSk(j)  .delpsk(j) 
e continue 

35  RETURN 

1 CONTINUE 


40 


45 


bs 


TO  USE  IN  /FFFCAL/ 
vLONII  , yLCNO 
JHIPR  m NTYPF 
JTINR  a 0 


FIRST  FIND  VALUES  OF  PRESSURE  AND  THEN  DISTANCE  NOP  THAT  PRESS. 
PLHM  a ALOOIO(PSI) 

PCPM  a ALOPIC(PSINJ) 

SIGPL  = RLPM4SICBL 
SIGPc  » RCPM»SI6BC 
00  In  J » 1.26 

PLL  ■ PL6PP(J)*SIGBL*RLPM  * RLPm 
IF(  nTYPE  .NE.  0)  GO  TO  7 
IF(  PLL  .6T.  1.S7978)  60  TO  6 
GO  TO  7 

niST  a 0. 
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7 CONTINUE 


ll/OB/72  pAoE  NO.  000013 

CDC  6400  FTN  V3,o-P?4l  OPT»l  1 


60 


65 


70 


75 


80 


85 


PC 


95 


IPO 


105 


1 JM 


10 


15 

16 
11 


12 


13 


14 


CALL  FOIST(NTVPE.I.BLL.OIST) 

PIST  ■ I)IST*VL0NU 
CONTINUE 
OBL(J)  ■ OtST 
osoK(j)  ■ ntST*niST 
PCL  ■ RLGPP(J)  4SI6BC*  BCPw  ♦ PCPP 
IF  (NTVPe  .NE.  ft)  GO  TO  3 
IF(  PCL.GT.  1.57978)  GO  To  2 
GO  TO  3 
OIST  = 0. 

GO  TO  4 

continue 

CALL  P0IST(NTYPE«1. PCL. OIST) 

OIST  ■ OIST*YIONU 
CONTINUE 
OHC(J)  s OIST 
PSOKJ)  » PIST*PIST 
CONTINUE 

OUTPUT  INITIAL  calculations. 

WPITF(H0,15) 

F0PM»T(IH1) 

WRITF(W0«16) 

FOPMaT (///////) 

WPITF  (MG. 11) 

format ( IHO.  36MZER0  CEP  PK  OlST  LETHAL  ANO  INJUHV  ) 

WRITE  (MO. 12) 

FOPMATf  IHO,  AM  NO.,  BH  PPOB  ,2X,  BM  OIST  L ,AX,Rh  OIST  I 


SH  PPOB  .2X< 


8h  OIST  L .AX,  8H  OIST  I 


pbliim)  .obcHm)  .ii.mkt(ii). 


1.12X  , aH  no, 

00  14  I » 1,13 
II  « 2aI 
IM  , II  . 1 

WHITf(mG,i3)  IM,pkT(IM) 
tOHL(II)>.OPCUI) 

Fo(>AT(1H  ,)H(,  12, 1M),  Ffl,6.?F12,6.l0X,lH(,I2.lH)  , 
IFB.fe.  2F12.6, 

continue 

AOjUST  OISTANCES  to  get  a RETTER  interpolation  table, 

OSfJK(l)  » 0.7901234aE*10 

OBL(i)  » P88P.8868 

(?SoI(i)  ■ 0.79oi234aE*1o 

P8C(\I  * 8888,8888 

0BL(?4)  ■ o,666667*DBL(23) 

0HL(?5)  ■ P.333333*DBL(23> 

08C(?4)  » 0.666667*D8C(23) 
n8C(25)  » 0.333333*OBC(23) 

OSOK(2a)  ■ 0PL(2A)*DBL(24) 
pS(JK(25)  ■ 0BL(25)*DBL(25) 
nS0I(2*)  ■ 0RCI?4)*DBC<2a) 
nsnl(25)  ■ 08C(2S)*DBC(25) 

0PL(?6)  » P. 

0HC(26)  e 0. 

OSGK(2M  » 0. 
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UKCl^SSIFIER  *•••  ll/Of/72  P*bE  NO.  OOOOJ* 

SUeHCUTiNE  FLPKA  CDC  6*00  FTN  V3.o-P2*l  OPT«l 

0S0K26)  s 0. 

SIG  . CEP/1.177* 

, ' rPL(?)  » 0BL(?)  ♦ *.*S1G 

PPC<2»  ■ 0PC<2»  ♦ *.»SI6 
115  OSOK(?)  « OPL«?)*ORL<2) 

DSQI(2)  ■ nPC(2)*0RC<2) 

C SETUP  FOR  numerical  INTEGRATION  FOR  CEP  EFFECTS. 

OIL  « SIG/2.5 

120  SIGS  ■ S1G*S1G 

TPSIPS  *!./(?. •3.1*l59265»SIGS) 

TSIGS  = 1./<2.*S16S) 


125 


130 


135 


1*0 


1*5 


150 


155 


160 


163 


c integrate  for  each  distance 

00  100  JK  .=  3.26 
SU«CL  • 0. 

SUMCC  ■ 0. 

SU«CP  ■ 0. 

CROSS  = -OIL 

C CT»C  AND  CTRR  USED  aS  WEIGHTS  IN  SIMPSONS  RULE 
CTRC  « 1. 

DO  20  K ■ 1.21 
CROSS  « CROSS  ♦ OIL 
CTPH  « 1. 

DOWN  ■ -ll.*PIL 
SUMPL  » 0. 

SUMRc  a o« 

SU«PP  a 0. 

DO  10  J.»  1.21 

OOwN  a CCWM  ♦ OIL 

PaO  a CHCSS»CROSS  * 00WN«D0WN 

PROPD  a TPSlGS»FXP(-RAr«TSIGS> 

TT  * nj.L (JM  - down 

T?  = Ti«Tl  * CPOSStcROSS 

r.STP  a SO.RTCT?) 

rCALL  PPOMPT 

'xlPL  * PKFLP 

Ti  « ncr ( jy 1 - oOWN 

T2  « Ti»Tl  * CROSS*c«OSS 

nSTP  a SQRT(T?) 

CALL  PROMPT 
XLPC  = PHELP 

T]  « ( XLPL  - PLPMl/SIGPL 

PHOL  « CUMNOR(Ti) 

T2  a (XLPC  - RCPMl/SIGPC 
PPOC  * CUMNORCTg) 

1F(  J.EO.  21)  CTRR  a 1.  

SUmRl  ■ SUMfiL  ♦ ctrr»pporo»prol) 

SUmRC  = SUMRC  * CTRP«PRORO«PROC 
SUMRP  a SUMRP  * CTRR«PR0PD 
IF(  CTRfi  - 2.)  31.31.32 
31  continue 
CTRR  a 4, 


I 


'1 


J 


I 


I 
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PA'^E  |v,o.  00('0l5 

COC  6*00  FTN  V3,0-P?*l  OPT»l  1) 


GO  TO  33 
3?  CONTINUE 
CTRR  ■ 7. 

33  CONTINUE 

30  CONTINUE 

IF(  K.FO,  ?l  ) cTRC  « I. 

SUMCL  « SUmCL  ♦ CTRc*SUHRL 

suMcc  I su«cc  ♦ cTRc*su**rc 

SU'<CP  ■ SUMCP  * CTRC*SUPRP 
IF(  CTrC  - 2.)  21*21*32 

31  CONTINUE 
CfRC  » 4. 

GO  TO  23 

23  CO'ITINUE 

CTRC  » 3. 

33  CONTINUE 

30  CONTINUE 

C POELN  IS  USED  TO  NORMALIZE  PR09APILITY  INTEGRAL  iiNCE  INTEGRATION 

C IS  NOT  EXACT 

POELN  * ?.*SUNCP*0IL*0IL/9, 

PKCK(JK)  ■ ?.*SUMCL  *0IL*DIL/ (R.*POELN) 

PKri(  jM  « 2.*SUMCC*DIL*0IL/(9.»PoeUN) 

100  continue 

C adjustments  for  interpolation  table  since  08L(I)  is  large, 

PNCI (I)  * 0, 

PNCK(l)  » 0* 

PNCK3)  « 0* 

PKCN(3)  « 0. 

C...  integrate  over  lethal  area  to  normalize  NILL  FUNCtlONS 
T°Sl  » 3*1*159265 
TPS3  ■ 0.5*3.1*159265 


S 1 N T K » 
SINTI  I 
no  In  1 
PNI  s ( 
AfM  X P 


1 * 3*36 

(PKC<(n  - PKCNII  - 1))/  (DSOK(l)  - OSOKd  - 1)) 
PKCKd  -1)  - OSQK(  I-n*BKI 


- osoK  d-1) 

- DSON(I-d*USOK(I-l)  1 
nsoid)  - DSOKi-d  ) 

-DSOI (I-l)*oSUl (I-D  ) 


X (PKCld)-  PKCid-i)  )/(0soid  > -osoid-n  ) 

All  X PKCI(I-l)-OSOId-l)*RII 

SINTK  X SIMTk  -TPSI*AKI*(  nSOK(I)  - OSOK(I-l)  ) 

1 - ToS2*»'<I*(  OSOK(I)*nSOK(I)  - DSON(I-d*USOK(I-l)  1 

SINTI  X SINTI  -TPSI*AII*(  nsold)  - DSOKI-d  ) 

1-TPS3*hU*(  OSOI  (I)*OSOI  d)  -DSOI  (I-l)*oSUl  (I-D  ) 

CONTINUE 

ANN  X 3,iai59265*DS0K(ja) 

AIN  X 3. i4(5936?*0S0I (lA) 

RA6  X AKN/SINTK 
SRaK  X SGRT(RaK) 

P*1  X AIN/SINTI 
SBaI  * SQRT(RaI) 

write  (MO, 71)  SPAK,SRAI,ADJSTF 

format ( iHo,53HRaTIO  OF  LETHAL  RADIUS  AREA  TO  CEP  INTEGRATED  AREA  1 

IS  ,fio.5  *3iM  POP  Fatalities*  and  *fio. 5,138  for  injuries. 
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225 


230 


235 


240 


2*5 


25-1 


2 /.27M  distances  *»£  ADJUSTED  3V  ,F5.3.  14H  OF  IMIS  ratio 
3.  13H  TO  noR***LI2E  ) 

00  7?  J • 1,26 

nSOKIJ)  • OSOK(j)*(  1.  ♦(«AK»1.)*ADJSTF) 

0«L(J)  • DPLU)*(  1.  ♦ (S«AR-1.)*A0JSTF) 

nsoKj)  ■ rsoi(j)*(  1,  * (RAi  -i.)*adjsifi 
OPCij)  ■ OOC<J)*<  !.♦  ISPAI  - 1.)*adJSTF) 

72  CONTINUE 

M»1TeIm(3,  jT) 

(7  FORMAT!//) 

/<RlTF(  mC«**) 

44  FOJM*T(  IMO,  42MCEP  INTEGRATED  Pk  niST  LETmaL  ANU  INJURY 
wRlTF  (M<3.43) 

43  FORM»T(  1M(),  4M  no.  .qm  PROR  L »2**  OIST  t »2** 

IRM  PROd  1 •2Y*  8M  oIST  I . l2X»4M  NO.  (RH  PROP  L • 

2 2«.  8m  OIsT  L .2»*  9m  prd8  I »2x.  8m  DIST  I > 

00  41  1 ■ 1,13 
11  ■ 2*1 
IM  ■ II  - 1 

wfilTP  (MC«  42)  1N*PkCKi1M),  O0L(1N),  PkCI(IM),  OBC(Im). 
111*Pkck  <1D  *OPL(ID  . PKCI<II>*  OPdll* 

42  pOwmaTi  IM  , IM(*I2*IM),  F9.6»  F12.6*F9.6*  F12,6*iOX» 

11M(,I2,  IM),  F9,6,Fl2.6.  FR.6.  F12.6  ) 

41  CONTINUE 

c fill  difference  table 

00  61  1 a 2t26 

OELDSI(I)  a DSOKl)  - PSOKI  - j) 

OELPSld)  a PKrIU)  - PKCKI  - 1) 

OELOSK(I)  a DSOKl  I ) - DSOK ( I - 1) 

OELPSK(I)  a PKCK(I)  • PKcKII  “ 1> 

61  continue 

0M4X  a uRLIP) 


255 


261' 


IF  (IPnCMA  ,NP,  1)  60  TO  5l 
C puncmEO  CARO  OUTPUT 

00  «1  J a ),?6 

wRTTrl  MSt«?)  JfOSOl  |J)  ,PKCI  I J)  »CS(5K  I J ) tPKCK  I J ) » J .npLOS  I ( J ) . 
lOELPSl I J) ♦OELDSK (J)  .DELPSKIJ) 

52  F0RMAT(l4t4ElS.9*/f  l4»4E)5.9  ) 

53  CONTINUE 

51  continue 

PC  Turn 

PNO 
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SUBROUTINE  FLPKHU 


A.  GENERAL 

This  subroutine  fil4s  arrays  with  probability  of  kill  and 
injury  for  future  use  in  optimization  routines.  The  method  is 
based  upon  use  of  the  SSKP  function  as  outlined  in  LAMBDA  Paper  6 
and  in  the  SSKP  writeup.  The  square  of  the  distance  at  which 
various  values  of  SSKP  is  found  for  both  lethal  and  injury  over- 
pressures is  found. 

This  subroutine  has  been  used  extensively  in  many  IDA/WSEG 
calculations jA  It  was  used  in  Program  DGZSEL  as  part  of  the 
IDA/WSEG  DAL  and  CANOPY  studies.  It  was  used  in  AGZSEL  for  IDA 
Paper  P-762,  and  in  Program  ANDANTE  in  blast  optimization  calcu- 
lations. Because  of  this  long  history  the  capability  is  retained 
in  the  NEVUNS  system  to  provide  a means  of  correlation  with 
previous  results.  The  subroutine  FLPKA  is  to  be  preferred  if  a 
close  relation  to  the  causes  of  blast  damage  is  desired. 

B.  REQUIREMENTS  ON  CALLING  PROGRAM 

The  block  common  communications  are  as  follows: 

To  be  filled  by  calling  program; 

/WPNPR/  CEP  weapon  delivery  error 

NTYPE  ® surface  burst 

-1  for  optimum  air  burst 

YLDNU  cube  root  of  yield 
/VULPR/  PSIL  median  lethal  overpressure 

PSINJ  median  injury  overpressure 


precedino  page  ELANK-ITOT  filmed 


11-^9 


XMOD  shape  parameter  in,  WSEG  model  not 

curreatly  aeeded  since  MOD  is  -fet  to  ^ 
in  the  program.  Readily  implemented  by 
changing  the  first  line  of  coding  from 
MOD  = 0 to  MOD  = XMOD 

/lOPR/  standard  output/* definition 

Filled  by  subroutine  for  temporary  use 

/TRNSFR/ 

Results  available  in  PKPR 


NDJS 

PKL(I) 

DPKLCi) 

DSQL(I) 

DDSQL(I) 

PKI 

DPKI 

DSQI 

DDSQI 

DMAX 


number  of  entries  in  table  ( = 26) 

kill  probability 

PKL(I)-PKL(I-1) 

square  of  distances  for  PKL 

DSQL(I)-DSQLd-l) 

same  as  for  lethal  but  using  injury  overpressure 

/DSQL (2)  maximum  distance  with  none  zero 
kill  probability  as  for  use  in  blast  screening 
calculations 


The  following  functions  are  needed  for  this  subroutine: 

Functions  PZZ,  SSKP,  G,  XLRAD,  ROOTF. 

C.  ALGORITHMS  IMPLEMENTED 

The  median  overpressure,  PSI,  is  set  equal  to  the  median  lethal 
and  median  injury  overpressure  and  the  following  calculations  are 
carried  out: 

The  weapon  radius,  DZER,  is  found  by  obtaining  a distance  from 
the  function  XLRAD  multiplied  by  the  cube  root  of  the  yield. 


II-50 


The  standard  deviation  of  weapon  aiming  error  SIGD  is  found 
from  the  CEP  by 

SIGD  = CEP/1.1774 

- , oppceT 

The  kill  probability  with  zero  weapon  PMAX,  is  found 

from  the  SSKP  function. 

The  distance  for  the  first  array  element  is  set  to  a large 
number  and  the  kill  probability  to  zero.  The  kill  probability 
for  the  second  element  is  set  equal  to  zero.  This  is  done  for 
use  in  interpolation  schemes  tthfsc 

Target  kill  probabilities  are  found  as  the  following  fractions 
of  PMAX: 

.001,  .01,  .02,  .05,  .10,  .15,  iii,  .90,  .95,  .98,  .99  . 

This  gives  24  more  array  elements.  For  each  target  kill 
probability  the  distance  at  which  the  SSKD  function  would  yield 
this  kill  probability  is  found  by  the  root  finding  function. 

This  is  accomplished  by  finding  the  root  of  the  function,  PZZ, 
which  is  simply  equal  to  the  difference  between  the  SSKP  function  and 
the  desired  kill  probability.  The  last  array  element  sets  the 
distance  equal  to  zero  and  kill  probability  equal  to  one,  again 
for  interpolation  purposes. 

For  the  third  to  25th  elements  the  SSKP  function  is  then 
entered  to  compute  the  kill  probability  at  the  computed  distance. 

From  the  two  arrays  of  distance  and  kill  probability  the  desired 
output  arrays  are  computed,  i.e.,  kill  probability,  distance 
squared,  first  difference  of  kill  probability,  and  first  difference 
of  distance  squared. 


n-51 


The  appropriate  external  arrays  are  filled  depending  upon 
whether  lethal  or  injury  overpressures  have  been  used.  The 
computed  distances  and  kill  probabilities  are  recorded  on  the 
output  medium. 


r 


, 
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05 


10 


15 


C NEVUNS  STANDARD 

C LAST  REVISED  NOV.  9,  1972 

C FILLS  PK  TABLE  ACCORDING  TO  EVERETT  FASHION  IN  ORIGINAL  OGZSEL 
C TABLES  filled  FOR  BOTH  BLAST  AND  INJURY 

DIMENSION  PKC(30) *030(30) *OELOS(30) .OELPS(30) 

COMMON/PkPR/  N0S*PKL(30) *OPKL(30) *0SQL(30) *OOSQL(3o) t 
1 PKI(3o).  OPKI (3U) .oSOI (30) .OOSQI Oo) • OhAX 
C0MM0N/mPNPR/BLA*(3)  .CEP«BLB(6)  .NTYPE  *BLC(13)  .YLUNU*BL0 
COMMON/VULPR/  PSIL»8LK.PSINJ.BLL(3) ,XMOO.BLE(1o2) 
COMMON/TRNSFR/  h00«02ER*SIG0»PTG»PMAX.8LF(15) 

COMMON/IOPR/  8lG*MQ,8lH(16) 

external  pzz 


i 


20 


25 


3o 


H00a4 

ZIlCH  a SSkP(0*0.*0..0«*0..0.) 

ISTrT  a 1 
PSI  a PSIL 
GO  TO  2A 
23  CONTINUE 

PSI  a PSINJ 
2A  CONTINUE 

IF(  nTYPE  .LT.O)  PSi  a - PSI 
OZER  • XLRA0(PSI)»YL0NU 

SIG0aCEP/I.1774 

PMAX  a SSKP(M00.  ozeR«sigo*sigo*o.*o.) 
00MAx»5.«(0ZER*CEP) 


OS(](I)al.E!>0 

PKC(l)a0. 

PTGa.VOl 

0S(3(  2)  a ROOTF(O.,oOmax,.O01  ,PZZ) 
PKC(2)aO. 

PTGa.yi 

OSQ(  3)  a R00TF(0.f00HAX..00I fPZZ) 
PTGa,02 

OSQ(  4)  a ROOTF(O..OOMAX,.o01*PZZ) 
PTG».0*i 
00  700  Ia5,23 

OSQ(  I)  a ROOTF(O..OOhAx,.001 *PZZ) 
PTGaPTG*.05 
700  CONTINUE 
PTGa,90 

0SQ(?4)  a ROOTF(0..OOMAX*.O01*PZZ) 
50  PTGa.99 

0S0(25)  a ROOTF(O.,oOMAXt.O01*PZZ) 
OSO(26)ao. 

PKC(?6)al, 

00  701  Ia3,2S 
bs  XXXX  a OSO(I) 


35 


40 


45 


I 

I 

I 
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60 


65 


7o 


75 


00 


85 


90 


95 
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105 


no 
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FLPKMU  coc  6*00  FTN  '»3,o-P2*l  OPT»l  11/ 

PKC(I)  ■ SSKPI  MOOtOZER»Sl6D«SI6OtXXXXt0.) 

OSQ<n«OSO<l)*OSOM) 

701  CONTINUE 

OSO(2)aOSO(2)*OSO(2) 

NOS«?0 

00  710  I a 2,26 

oELOsni  a osaii)  - osou-n 
oELPsni  a PKcn)  - PKcn  - n 
710  CONTINUE 

IFUSTRT  .NE.  1)  GO  TO  21 
OHXXaSQNT  (080(2)) 

OZ*  a OZER 
00  22  J a l.NOS 
P^L(J)  ■ PKC(J) 

OPKL(J)  ■ OELPS(J) 

OSOL(J)  ■ DSO(J) 

OOSOLU)  a OELOS(J) 

22  CONTINUE 
ISTRT  a 2 
60  TO  23 
21  CONTINUE 

0Z8  a OZER 
00  26  J a l.NOS 
PKI (J)  a PKC(J) 

OPKl(J)  a OELPS(J) 

OSOI (J)  a OSO(J) 

OOSQI (J)  a OELOS(J) 

26  CONTINUE 

WRITE(MO,  *81 
*8  FORN*T(  IHl. /////) 

WRITE(M0,8) 

8 FOHNXTdHO.  *8MV*LUES  OF  PK  - OIST  PY  OGZSEL  TYPE  CALCULATION  ) 
wRiTe  (M0.51J  PSIL.OZA.PSINj.OZB 
51  FORMAT (///»1H0*2RhhEO1AN  LETHAL  OVERPRESSURE  ■ *Flo.3. 

1 22H  WITH  lethal  radius  a ,F10,3»/,10X.  29HMEDIAN  INJURY  OVERPRES 

2SURE  a .F10.3,  22H  WITH  INJURY  RAOIUS  a .FI0.3  .//) 

wRiTe  (MO, *3) 

*3  format ( 1H0»  *M  NO,  ,9M  PROB  L ,2X.  8H  OIST  L ,2X, 

I9M  PR08  I ,2X.  8H  OIST  I , 12X.AH  NO,  ,9H  PMOB  L . 

2 2X,  8H  OIST  L ,2X»  9h  PROB  I ,2X,  8h  OIST  I ) 

00  Al  I a 1,13 
II  a 2»I 

IM  a II  - 1 

TLl  a SORT(OSOLdM)) 

TL2  a SQRT(OSOL(II)) 

TII  a SQRT(0S0I(IM)) 

TI2  a SQRT(OSOI(II)> 

WRITF(  MO, *2)  IM.PKLdH),  TLltPKI  (IM)  ,TI  1, 

1 II,PKL(II)*Tl2,  PKI(II),TI2 

*2  FORMAT!  IH  , lh(,l2,lH),  F9.6,  F12,6,f9.6,  F12.6,10X, 

1IH(,I2,  IH),  F9,6,Fl2.6,  F9,6,  F12.6  ) 

*1  CONTINUE 

return 
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FUNCTION  PZZ  Cl>ccA: 


A.  GENERAL 

This  function  is  used  by  the  FUNCTION  ROOTF  to  satisfy  its 

gAuMG*  j 

formal;)  requirements . It  is  used  by  FLPKH#’  to  find  a value  of 
aiming  offset  so  SSKP  has  a value  of  PTG*PMAX. 

B.  REQUIREMENTS  ON  CALLING  PROGRAM 

The  following  elements  must  be  filled  in  the  common  block 

iTRNSFRl : 

MOD 

DZER 

SIGD 

PTG 

PMAX 

0 

These  are  now  filled  by  subroutine  FLPKH®.  This  function  • 
needs  the  function  SSKP  available. 

C.  ALGORITHM  IMPLEMENTED 

The  function  PZZ  is  defined  idk* 

PZZ  = SSKPCMOD, DZER, SIGN, SIGD, XXXX,  0)-pIg-PMAX 
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•***  ijN'CLiis<iFiFn 
FUNC^('^  •=<!? 

Pj'iCTlON  P7?(«I**K1 


n/OT/72  P*l>F.  NO.  oopni« 

COC  O400  FTN  V3.0-P?*1  OFTal 


C '■•EVUNS  STANOAPO 

C LAST  PEvrSED  nOv.  7.  197? 

C IISEO  IN  CONJUNCTION  **ITN  BnOTF  TO  FILL  A SPECIAL  ROLE  IN  FLPKHU 
C There  IS  NO  GFNERAL  use  fop  This  FUNCTION, 


C0«MON/THNSF«/M0C*07ER.SI60*PTfi*PMAX,rtL* (If ) 
ir  EXTEoNaL  SSKP 

TF*'P  a SSKP<HrO.OZE«»ST6ri*Sir,0**XXX,0) 

?ZZ  a TE^P  - PT6«PPAX 

pETUON 

EM'l 


1 1 / 


i 


li 


I 


»**•  'j'iCLaSSIFIFP  ••••  n,59  1 1/07/7?  PALE  NO.  P0001« 
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A 


FUNCTION  SSKP^^eoc 


A.  GENERAL 

This  function  is  based  on  work  by  H.  Everett  and  R.  Galiano 
described  in  Lambda  Corporation  Paper  No.  6;^  The  coding  was 
originally  developed  as  described  in  this  paper,  and  has  been 
used  in  IDA  calculations  for  almost  a decade.  In  particular,  a 
number  of  previous  civil  defense  calculations  have  been  based  on 
this  method. 

This  function  is  used  to  compute  the  single  shot  probability 

of  kill  from  the  blast  wave  with  weapon  aiming  error,  and  the 

weapon  aimed  at  a point  offset  from  the  intended  target.  The 

standard  deviation  of  the  aiming  error  is  a , a in  the  two 

X y 

normal  directions  and  the  aim  point  is  offset  from  the  target 

by  a distance  y , y . 

X y 

The  probability  of  kill  fianction  is  given  by 


where 


G^(r) 

K » 

a 

r 


e I 

j»0  ^ ‘ 


Wr 
a 

is  the  lethal  radius 

is  the  distance  from  weapon  impact  to  the  target 


The  parameter  W allows  control  of  the  shape  of  the  function  Gj^Cr). 
For  W » 1 a normal  curve  is  obtained;  for  W ■ a cookie  cutter 
curve.  According  to  the  Lambda  paper:  "Standard  Kill  curves, 

such  as  the  02q  and  curves  of  AFM  200-J,  representing, 
respectively,  ground  burst  and  air  burst  blast  damage  probabilities 
as  a function  of  distance  can  readily  be  approximated.  W » 6 
approximates  closely  the  02q  curve,  W ■ 3 approximates  the  o-q  curve 


1.  Robert  G.  Galiano  and  Hugh  Everett,  III,  "Some  Mathematical 
Relations  for  Probability  of  Kill-Family  of  Damage  Function  for 
Multiple  Weapon  Attacks",  Lambda  Corporation,  Defense  Models  IV, 
March,  1967.  . 


« 
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B.  REQUIREMENTS  ON  CALLING  PROGRAM 


The  only  communications  are  the  following  input  values  to 
the  function,  and  the  function  value  which  is  returned. 

The  inputs  are: 

MOD  the  value  of  the  shape  parameter  W in  fixed 

point  form 

A the  weapon  lethal  radius 

SX(a^)  the  weapon  aiming  error  in  the  x direction 

SY(ay)  the  weapon  aiming  error  in  the  y direction 

XMU(Ux)  intended  weapon  offset  in  the  x direction 

YMUCUy)  the  intended  weapon  offset  in  the  y direction. 


It  is  only  required  that  the  distances  be  in  consistent  units. 
The  SSKP  function  assumes  ilio-  fuuGtl\:ji'i  certain  parameters  must 
be  initialized  through  an  initial  call  on  the  function  with  MOD=0. 
The  initialization  is  accomplished  and  the  function  exited  with 
value  of  SSKP  * 0, 

The  SSKP  function  uses  a special  function  G which  must  be 
available  to  it, 

C.  ALGORITHM  IMPLEMENTED 

The  equation  implemented  is  obtained  by  integrating  the  function 
Gjj(r)  over  the  elliptical  delivery  error.  The  result  is  equation 
(15)  in  Lambda  Paper  No,  6,  It  is 


'^'^x^y  j = 0 


^ Z (^)  H(2J^,a^,y^,b)  • H (2  ( j -Jt)  ,Uy  ,b) 


where 


The  definition  of  is  equation  (16)  in  Lambda  Paper  No.  6. 


It  is 


H(M,a,u,b)  = (|)  (|)  exp[-^]-_Z  (2j)(j)  r(i^) 


with 


8,=  vi/“  j 

a = 1+20^ 


The  equation  for  H is  implemented  as  the  function  G. 
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FUNCTION  SSKP  (M0D.A*SX.ST,XMU.YMU) 

C NEVUNS  standard 

C LAST  revised  NOV.  7,  1<572 


10 


15 


2'-> 


25 


30 


■s; 


4 0 


AS 


5n 


5S 


c COMPUTES  single  Shot  kill  probability  for  elliptical  normal 

c distribution  with  aiming  error  sx  and  sy,  the  aiming  offset  is 

C XMU  «NO  YMU.  A IS  THE  wFaPON  LETHAL  RADIUS.  MOD  IS  A SHAPE  FACTOR 

C ^Ou  3 1 IS  GAUSSIAN  IN  PK  VS  actual  DISTANCE  FROM  THE  WEAPON 

C MOO  3 1 IS  SI6  20t  MOD  e 6 IS  SIG  30  . MOD  « INF  IS  COOKIE  CUTTER 

C FOR  A OFSCRIPTION  OF  EOUaTiONS  SEE  LaMOA  PAPER  6 BY  HUGH  EVERETT 

C III  and  R.  GALIANO. 

C THE  function  must  BE  INITIALIZED  GY  AN  INITIAL  CALL  WITH  MOD  * 0 

c ZERO  Value  of  sskp  is  returned,  afterwahos  normal  calls  can  he 

c maoe  for  the  duration  of  The  program. 


niMENSION  «IN(2S0) 

01  1ENSION  W(U) 

IF(MOD) I0tll»iv 
11  CONTINUE 

C INITIALIZATION 

BINdlsl.O 

PIN(?|31.0 

oo  2n  J*2»2C 
L*J»<J*l)/2*2 
BIN(l-1 131.0 
PIN (L-?) *1 .0 

NNsj»(j-i)/?*i 
LSSTrJ-i 
no  2ft  K3I.LAST 
RIN(U)3HIN(NN) ♦oIN(NN*i> 
L=L«1 

MNsNN. ^ 

2r  CONTINUE 

w(l)32.SoeB?‘>474 
W(21 32.505623474 
( I)  37.S1RPBS4?? 
w(4)337.SR°A?7li 
w(S)3?63.i9SRR9e 
w (f'l  s?36P.763R0P 
ta (7) 3?6ftS6.40?RR 
V'(m)s338733.23BB2 
w(9)35oeoRRR.‘=rt7 

W ( 1 3fl037fi97R.<io 
W(  ll)*l041l52S4a. 

SSKP  3 c. 

return 

c normal  CALL 

111  Ca6.7H31R5*SX*SY 
XMOOsNOD 


! H 

I ' 

J 
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L 


1 
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SS^P 

f sAWflO/  I A*A) 

MMOr-1 

XJ=l.u 

TSUiVisr. 

LL*0 

LLH  a LL  ♦ 1 
NX  a 

no  T Jxa  LLX.NX 
J a JX  - 1 
SUN*o • 

HNaJ»(J*) )/?«l 
Kx,i 

KX  a K ♦ 1 
JV  a J ♦ 1 
CO  3 LX  a KX.JY 
L a LX  - 1 
NNNaNN«L 

Y1=G(2*L«SX.XMU,H*PIN*W) 
Y2aO(2*(J-Ll  .<?Y,YMIi,BtOIN.W) 
TEPYaBlN (^NN) *Y^*Y^ 

SU'-'aSUM  + TEPM 

X CONirNUE 

TT?Bn-aq**j«SUM 
IE(J15t6f5 
5 TTEPMaTTEP'VXJ 

XJJaj 

XJaXJ*(XJJ«l.<l> 

X.  TStJM.T<SUP*TTEPM 
^ CONTTMiE 
PSKP  aTSUM/C 
RFTUPN 
PM' 
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FUNCTION  G ibeck 


A.  GENERAL 

This  function  is  used  in  conjunction  with  the  SSKP  function 
for  elliptical  errors  with  a normal  offset  weapon  aim  point. 

Its  use  is  described  with  the  SSKP  function. 

B.  REQUIREMENTS  IN  CALLING  PROGRAM 

The  requirements  on  the  calling  program  are  supplied  by  the 
function  SSKP.  They  are  the  input  parameters  as  described  plus 
values  for  two  arrays,  BIN  and  W,  used  in  computing  binomial 
coefficients  and  the  Gamma  function. 

C.  ALGORITHMS  IMPLEMENTED 

As  described  in  the  SSKR  description,  the  function  is  given  by 


HCM,o,p,b)  = (^)  (|)  2 C j + /2  p (1^) 


The  coefficient  of  the  exponent  term  Is  different  here  than 
In  the  SSKP  description.  This  follows  the  coding,  while  the  other 
follows  the  write-up  in  Lambda  Paper  6.  The  subroutine  was  not 
thoroughly  checked  for  other  possible  differences. 
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15 


Zr 


. ?S 


?r 


35 


PAue  MO,  nOC02A 

CDC  6400  FTN  V3,0-P?4l  OPT»l  1’ 


FUNCTION  R(M,MG«XM,hBtPtN,w) 

C Nt'/Uf'S  STA^lnapO 

C L/'ST  PEVI'^FC  NOV.  7,  J97? 

c only  useo  fop  special  calculations  for  the  function  SSKP. 

C SEE  LAt’OA  PAPFR  6. 

Cr'FNSION  nlN(l).w(lll 
ALPH4«A0RT  (1  .♦?.*HB*SI(5*SrG) 

S4*STG/4LPHA 

IF  1 1,  1 n.n 

PFT6.XM/4LOHA 

SH«SIG/HET(>, 

na«ME7  A/ALOH4 

L*n 

SU’-<=". 

MNS,v»  (M.J  ) /?*! 

LX  a L ♦ 1 

s M « t 

00  1 KX»  LX. MX.? 

K « XX  - 1 

NNNaNN.K 

L2*x/2«1 

Z a < 

TEHMaHIN  (NNN)*Sb**Z*I*(L?) 

1 SUMaSUM«TE“M 

PaFXP  ( (HETA*«ETA-XH«XM)/(?,*SIG*5IG) ) 

V m 

RcTUCK 

1 A > 

Rff  rijRH 
Cj,-r> 


1 


J 


1 '.CLaSCIF  lEO  ••••  ll/pT/T? 
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FUNCTION  XLRAD('D«A:^/<^ 


A.  GENERAL 

This  function  is  used  to  obtain  the  distance  at  which  certain 
blast  overpressures  occur.  As  such  it  is  similar  to  PDIST.  It 
is  based  upon  numerical  lists  of  pressure  distance  curves  with 
the  constants  contained  in  several  arrays.  This  function  has 
been  used  at  IDA  for  a number  of  years  in  evaluation  programs. 

Two  options  are  available.  A positive  pressure  as  an  argument 
yields  a surface  burst  distance,  a negative  value  yields  the 
distance  obtained  when  the  height  of  burst  is  chosen  tcjmaxiraize  the 
distances  from  ground  zero  at  which  the  input  pressure  occurs, 

B.  REQUIREMENTS  IN  CALLING  PROGRAM 

The  only  requirement  for  this  function  is  the  input  pressure. 

1T4 

The-«ani  is  used  to  find  the  distance.  If  the  sign  is  positive 
a surface  burst  is  implied,  if  negative  an  optimized  air  burst. 

C.  ALGORITHM  IMPLEMENTED 

Lo^ARi-mmic. 

The  logarithm  of  the  distance  is  found  by  linear  interpolation 
from  the  tabulated  values. 
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FUNCTION  XLP40(0) 

C MFVUMS  ST4M0A00 

C LAST  REVISED  MOV.  7,  1P7? 

r returns  pressure  GIVEn  DISTANCE.  BASED  ON  OLD  «StG  FITS. 
niMENSION  T(13).X(l:'  V(?6) 


DATA 

T(  1) 

/2000./ 

oaTa 

T(  2> 

/lOOO./ 

RATA 

T(  3) 

/50O./ 

OATA 

T ( 4) 

/300./’ 

IE 

RA  fA 

T(  5> 

/100«/ 

hat  A 

T(  6) 

/SO./ 

OATA 

T(  7) 

/30./ 

data 

T(  8> 

/20./ 

DATA 

T(  9) 

/15./ 

2f 

DATA 

T ( 1 0) 

/lO./ 

data 

T(ll> 

/&•/ 

data 

T(12> 

/3./ 

data 

T(  13> 

/)./ 

data 

X 

t i> 

/7.6/ 

?5 

OA  Fa 

X 

t ?> 

/6.9U776/ 

data 

X 

( 3> 

/6.?i46l/ 

data 

X 

( 4) 

/S. 70373/ 

data 

X 

( 5> 

/4. 60517/ 

data 

X 

( 6) 

/3*«1202/ 

30 

data 

X 

( 7) 

/3*A0120/ 

data 

X 

( 3) 

/?.R9573/ 

Data 

X 

( R) 

/?.70B0S/ 

data 

X 

<10> 

/2. 30259/ 

Data 

X 

di' 

/) .79176/ 

3« 

DATA 

X 

tl2' 

/I. 09861/ 

oaTa 

X 

(13> 

/o./ 

DATA 

Y 

< 1> 

/-2.65R/ 

DATA 

Y 

( 7> 

/-I. 561/ 

04  Fa 

Y 

t 3) 

/-I. 273/ 

t,r 

DA  TA 

Y 

( 4) 

/-I. 05/ 

OaTa 

Y 

< 4) 

/-.616/ 

data 

Y 

( 6) 

/-.301/ 

DATA 

y 

( 7) 

/-0.062/ 

data 

Y 

( H) 

/0.1222/ 

45 

DA  FA 

Y 

( R) 

/o. 44469/ 

data 

Y 

do) 

/. 77011/ 

data 

V 

(ID 

/) .15688/ 

data 

Y 

(17' 

/\ .71919/ 

data 

Y 

(13) 

/2.7213/ 

Sr 

data 

Y 

(]4) 

/-2.65R/ 

data 

Y 

(IS) 

/-I. 561/ 

data 

Y 

(16) 

/-I. 273/ 

data 

Y 

(17) 

/-I. 05/ 

CIATA 

V 

OP) 

/-.616/ 

55 

oaTa 

Y 

( )9) 

/-•301/ 

t 

il 
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OATA  Y 

(20) 

/-.062/ 

DATA  Y 

(21) 

/.l?22/ 

DATA  Y 

(22) 

/.3001/ 

Data  Y 

<33) 

/. 49470/ 

data  Y 

«?4) 

/.ei97B/ 

OaTA  Y 

<25) 

/I. 26276/ 

DATA  Y 

(26) 

/I. 88403/ 

“2»!) 

XXaH 

0 GT  ZFPO  IS  surface  BURST,  LESS  THAN  ZERO  OPT.  AIR  BURST 

IF  (XX 

.GE.o 

,)fiO  TO  1 

02=11 

XX=-0 

1 TEMPI*  XX 

IF  o.  .GE.XX)  TEMPl»1.0ftl 

00  2 II=1«13 

I=13-II«1 

IF  (T<I)  .OT,  TEMPI)  GO  TO  3 

5 continue 

Tsl2 

3 TE-*P?=  X(I*1)-X(I) 

XXl  a I 

n?  a R?  ♦ XXI 

IB  a 42 

ISP  a «2  ♦ 1. 

S=(Y<IRP  )-Y<IH) 1/TEMP? 
ps-<S*X(I*l))*Y<I«P  ) 
Z=aLOG<TEMP1)*S*B 
Xl.Pon  a EXP(Z) 

PFTIipn 

ENH 
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FUNCTION  ROOTF  ( PCzf^  ■ft’ /'J 


A.  GENERAL 

THe 

This  function  finds  the  root  of  -er  function  specified  in  «- 
calling  sequence. 

The  search  interval  is  specified,  and  the  error  in  the 
function  argument  allowed. 

If  no  root  is  found  the  function  is  exited  with  a function 
value  are  greater  than  the  maximum  allowable.  If  the  function  has 
more  than  one  root  usually  the  first  root  is  found  but  this  is  nu 
guarantee  that  this  root  is  the  one  obtained. 

B.  REQUIREMENT  IN  CALLING  PROGRAM 

The  calling  program  must  supply  for  arguments  for  the  function. 
They  are: 

XO  - minimum  value  of  interval  searched 

XF  - maximum  value  of  interval  searched 

EFF  - error  allowable  in  argument  of  function 

DUMMY  - the  name  of  the  function  which  is  to  have  the 
root  found 

The  function  value  provided  is  the  value  of  the  independent 
variable  in  the  function  which  makes  the  value  of  the  function 
equal  to  zero. 

C.  ALGORITHM  IMPLEMENTED 

A flow  chart  is  provided  to  assist  following  the  logic. 

The  subroutine  first  attempts  to  find  one  positive  and  one 
negative  function  value.  The  two  ends  are  first  searched.  If 
both  ends  have  the  same  sign,  the  left  end  of  the'^TntervaT^earch^ 
is  set  equal  to  xO  and  the  right  end  to  loft  Cttd  plus  1/2  the 
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interval  length.  If  the  signs  are  the  same  the  search  interval 
is  moved  to  the  right  and  the  process  continued  until  the  ends 
of  the  search  interval  yield  different  function  value  signs  or 

the  right  end  of  the/\interval  is  reached.  If  the  right  end  is 

H^LveZ) 

reached  the  size  of  the  search  interval  is  deoroayed  and  the 

stepping  process  repeated  until  a good  search  interval  is  found. 

The  search  interval  size  is  decreased  to  1/lOOOth  the  initial 

interval  size  and  if  no  alternate  signs  are  found  an  error  exit 

« 15 

is  made  with  the  values  of  XF^'IO 

Once  an  interval  with  alternating  sign  is  found  one  of  two 
processes  is  used  alternately  to  find  a better  estimate  of  the 
root.  One  method  is  linear  interpolation  between  the  end  points 
of  the  interval.  The  other  is  to  take  for  the  new  point  the 
midpoint  of  the  interval.  A new  interval  is  constructed  with  the 
new  point  and  that  end  point  which  keeps  the  sign  of  the  function 
at  the  two  endpoints  of  the  interval  differential.  The  process 
is  continued  until  the  two  endpoints  differ  by  less  than  the  value 
error.  At  this  point  the  midpoint  is  chosen  at  the  argument.  If 
after  1000  trials  the  interval  is  still  larger  than  EFF  an  error 
exit  is  taken  with  function  values  equal  XFilO^^. 
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BOOTF  COC  6400  FTN  V3,0-P2*I  OPT»f  11/ 

FUNCTION  KOOTF(XO»XFtENR«OUMMY) 


(is 


10 


l5 


20 


25 

/ 

30 


35 


♦0 


AS 


SO 


55 


c nevuns  standard 

C last  revised  NOVt  Tt  19T2 

C A function  mhich  returns  as  a function  value  The  first  root  , 

C usually  of  THE  FUNCTION  OUMMY. 

c USUALLY*  Of  TH£  FUNCTION  OUMHY. 

KNT  ■ ; 
iSMaO 

C InITITaLiZE  XmInUS 

XMINSaxO 

FMINSarUMMY(XMINS) 

ROOTFaxHiNS 

lF(FMlNS.EQ.n.)RETURN 

XPLUSaxF 

DELTA  a (XF>xO)*2. 

TCONaOELTAA.OOOS 

c step  Through  until  straddle  root. 

1 FPLUSaoUMRY(xPLUS) 

ROOTFaxPLUS 

iFlFPLUS.eo.n.lRETURN 

ifcfplusaFhins.lt.o.igo  to  2 

FMlNSaFPtUS 

XMINSaxPLUS 

XPLUS  a xRLUS  * delta 

if<xplus-xf,lt.o»)Oo  to  1 

C decrease  OElTA  and  start  over  looking  for  root. 
OELTAaoELTAA.S 
XPLUSaoELTA«.5«XO 
IF(OELTA-TCoN.GE.O*>  00  TO  1 

C error  E”!^ 

3 ROOTF  a X^  * 1.E*1S 

return 

2 IFIFPLUS  .GE.  0.1  00  TO  11 

TEMP-XPLUS 
XPLUSaxMlNs 

XMlNSafEMP 

tEnp-fpluS 

FPLUSaxHlNS 

FRlNSaTEHP 

11  IFdSa  .EO.  n)  GO  TO  12 

ISRao 

c ilinr-lInEar  interpolation 

Tl«FPLUS-fHTNS 

XP«(XmiNS*XPlUS)*FMINS/T1*XMINS 
GO  TO  i3 

C IBNRY-ftlNARY  DIVIDE 

12  XP"(XPl,US*XMlNSl*.5 
ISR«1 

13  FPaOUMMY(Xp) 

ROOTFaxP 

IF(FP  ,EQ.  o.IPETURN 
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function 
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11/08/72  bAOE  N0«  ooOOl* 

CDC  6*00  FTn  V3,i>-P2*l  OPT-1 


IF(  FP  .LT,  •,)  «0  TO  U 
FPLUS-fP 
XPLUS  ■ KP 
80  TO  iS 
1*  FHINSsfP 
XMlNSaxP 

1$  |F(XH|nS*KptUS  .to.  Ol*.  SO  TO  U 

XN7  • KNT  ♦ 1 

|F(  KNT  «tT.  1000>  80  TO  17 
C tPPON  t*lT  NO  CONVEPOENCt 

ROOTF  ■ xF  • l.e*16 
rctuhn 

It  continue 

temp  ■ XhInS  “ XPLUS 
IFITEMP  ,GE.  O.J  60  TO  16 
TEMP  • " Te«4P 

16  IF  (TEmP-ERR  .SE*0<)S0  TO  11 

R00TFb(Xm1nS*XPLUS)«*6 

return 

ENO 


••••  UNCtXSSlFlEO  •••• 
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SUBROUTINE  CALRN 


A.  GENERAL 

The  purpose  of  this  subroutine  is  to  collect  together  tim 
various  random  number  generating  functions.  Since  the  method 
of  obtaining  random  numbers  is  not  uniform  between  systems,  the 
subroutine  simplifies  tire  nrethgd  of  transferring  between  machines. 

The  subroutine  provides  for  initialization  of  the  random 
number  generation  process  and  returns  a number  sampled  from  a 
uniform,  exponential  or  normal  distribution. 

B.  REQUIREMENTS  ON  CALLING  PROGRAM 

Communication  between  the  subroutine  and  the  calling  program 
is  through  the  common  block  TRANl  which  has  values  RNO  as  input 
and  RNW  as  the  generated  random  number. 

Values  of  RNO  control  the  process  as  follows: 

RNO  greater  than  zero  but  not  equal  1. 

The  value  of  RNO  is  used  as  the  seed  for 
generating  a string  of  numbers 
RN0*1  The  seed  is  generated  by  reading  the  computer 
clock.  This  calling  routine  is  6900  unique. 

For  machines  without  a clock  other  means  of 
generating  a "random"  seed  are  needed.  Such 
procedures  are,  of  course,  unique  within  a 
system. ^fOne  of  the  previous  two  calls  must  be 
made  to  initialize  the  random  number  generator. 
The  calls  leave  RNW  undefined. 

RNO=0  A random  floating  print  number  sampled  from  a 
uniform  distribution  in  (0,1)  is  picked. 
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RN0=-1  A number  sampled  from  an  exponential  distribution 
will  mean  ® 1 is  returned. 

RNO  less  than  zero  but  not  equal  -1 

A number  sampled  from  a normal  distribution  will  mean  0 and 
standard  deviation  = 1 is  returned. 

The  subroutine  uses  the  following  subroutines  or  functions 
defined  only  for  the  CDC  6400  FTN  computer.  They  must  be  replaced 
by  the  appropriate  analogs  for  other  systems. 

Subroutine  RANSET(X)  - the  seed  of  the  random  number 

generator  is  set  equal  to  X 

Fundion  RANF(O)  - a floating  point  random  number 

uniformly  distributed  in  (0,1) 
is  returned 

Subroutine  TIME(CLTIM)^  the  software  clock  is  read  and 

returns  the  value  CLTIM. 

C.  ALGORITHMS  IMPLEMENTED 

The  uniform  distribution  is  obtained  directly  from  the  CDC 
system  function  which  uses  a con&JM^«ential  method  to  generate  the 
random  number. 

For  the  exponential  distribution  a random  number  jj  is  drawn  from 
a uniform  distribution.  The  number  returned,  RNW,  is  given  by 

RNW  = - In  y 

If  the  initial  number  is  drawn  from  a uniform  distribution  the 
method  is  exact. 

poK. 

the  normal  distribution  the  algorithm  is  taken  from  a recent 
ACM  article  by  Ahrens  and  Dieter^  which  is  reproduced  here,  in  part. 

1.  Ahrens,  J.  H.,  and  U.  Dieter  "Computer  Methods  for  Sampling 
from  the  Exponential  and  Normal  Distributions",  Communications  of 
the  Association  for  Computing , Machinery , Oct.  1972,  Vol.  15,  No.  10, 
pp.  873-882. 


The  method  approximates  the  normal  curve  by  a trapazoid  for  most 
calls,  but  for  some  calls  adds  Erections.  The  method  is  exact 
if  the  random  nvimber  generator  samples  form  a true  uniform 
distribution,  Afo/te  Twr  siMt^e  c>F 
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vN  . . r ct.  for  CT  wl.'j  >aihcr  slow.^t  rc- 

V >isc;  j)cr  Ample.  Tiie  mcl^d  came  inVo  its 
thine  code  .<i\w  %vh  .re  the  abseVee  of  fancuons 
’ for^c  square  roV  in  15.73  pcrceryi  of  all  casu) 
tie  'r  efntic.m  coe:ng.\The  assembler  pyrogram  fio- 
.1  •-\  tg  r.i;e  inline  square  rJ^i)  was  66  wor«is  long  anc 
ret  ..\ed  374  per  sampifc.  U was  therefore  as  fas 
snorter  toan  tne  tnodined  polar  methpd. 

T'le  next  a'go'riihrr.  uses  sampling  from  a convenient 
;.p,  ;oxiir.a:ion  :o  .he  normal  probability  density  func- 
:io.'.  w.th  high  probability.  Marsagiia  and  Bray  (16} 
describe  a similar  procedure  in  which  three  uniform 
samples  are  required  in  86.3S  percent  of  all  cases,  two 
.>uch  samples  are  taken  with  a probability  of  11.07 
percent,  and  in  the  remaining  2.55  percent  of  all  cases, 
ar.  acceptance-rejection  technique  or  a tail  method  is 
used. 

Ip.  the  subsequent  “trapezoidal”  algorithm  (TR)  two 
ur.i.brmly  distributed  variables  are  needed  in  91.95  per- 
cent of  all  cases.  The  procedure  is  easy  to  program  in 
hign-tevcl  languages  but  is  not  suitable  for  machine 
.'oui.ng.  It  has  moderate  performance  characteristics 
Sill* to  the  method  of  Marsagiia  and  Bray  [I6j. 

The  trapezoidal  method  TR  requires,  as  a prepara- 
t:on.  .he  solution  of  a numerical  exercise:  a maximum 
..  .lezoid  is  to  be  inscribed  in  the  graph  of  the  standard 
no.-.nal  probability  density  function.  This  largest  pos- 
sib'..  trapezoid  T is  given  by  its  vertices 

0)  where  { - 2.11402  80833  3742 


I./.,  /■>  where  X 
and  Y 


0.28972  95736 
- 0.38254  45560  42518. 


T covers  A 0.91954  44057  06926  of  the  total  area 
< f.i.  . is  1)  u.ncer  the  standard  normal  curve. 
Sampling  from  a (symmetrical)  trapezoid  is  easy:  if 
u\  and  Wj  are  two  i.adcper.dent  uniform  variables,  then 
. V c.  nbinatior.  C;:(i  -r  c.u-  (ci,  Cj  > 0)  follows  a 
. .t.or.  whose  probability  density  function  is  shaped 
;.kc  ...*.  .sosceles  trapezoid.  In  step  1 of  the  detailed 
the  constants  are  worked  out  (««  is  uni- 
br.r.  .r.  (C,  1)  and  u is  uniform  in  (0,  A)).  This  step 
app’  .es  in  A st  91,95  percent  of  all  cases. 

, it.n  a probability  of  about  3.45  percent  the  tail 
n>ethcd  ^ is  used  in  step  3 for  all  samples  beyond 
The  steps  5,  7 and  8 are  acceptance-rejection  pro- 
cedures (AR)  on  the  difference  function  between /(x) 
and  the  trapezoid  in  difTereni  intervals  between  ±i. 
The  steps  3,  5, 7 and  8 deliver  samples  y from  the  signless 
distr.oution  ^(y)  so  that  in  step  9 a random  sign  has 
to  be  attached. 


Algorithm  TR  (Trapezoidal  m.’.hod,  Ahrcr.s; 

1.  Generate  u and  w„.  If  w < 0.91954  44057  06926. 
deliver  x *-  2.40375  76569  3742  X -'u,  -f  u X 0.8;533- 
92825  36923)  - 2.11402  80833  3742. 

2.  If  « < 0.96548  71312  13858  go  to  4. 

3.  Generate  ui  and  set  >>  »-  (4.46911475713927  - 
2 In  ui)*.  Generate  u. , and  if  yu.  > 2.11402808333724 
then  repeat  this  step  3.  Otherwise  go  to  9. 

4.  If  u < 0.94999  07087  33028  go  to  6. 

5.  Generate  ui  and  set  y «—  1. 84039874739771  -r  wi  X 
0.27362  93359  39706.  Generate  uj , and  if  0.398942280- 
401433  exp(-yV2)  - 0.44329  91258  20220  + y X 
0.20969  40571  95486  < X 0.042702581590795  then 
repeat  this  step  5.  Otherwise  go  to  9. 

6.  If  « < 0.925852333707704,  go  to  8. 

7.  Generate  ui  and  set  y *-  0.28972  95736  00000  + ui  X 
1.55066917379771.  Generate  «i,  and  if  0.398942280- 
401433  exp  (-yV2)  - 0.443299125820220  + y X 
0.20969  40571  95486  < «,  X 0.01597  45226  55238  then 
repeat  this  step  7.  Otherwise  go  to  9. 

8.  Generate  ui  and  set  y ♦-  ui  X 0.289729573600000. 
Generate  ui,  and  if  0.398942280401433  exp  {— y*/2)  — 
0.382544556042518  < X 0.016397724358915  then 
repeat  this  step  8.  Otherwise  continue  with  9. 

9.  Use  Us  to  determine  the  sign  of  the  sample  : if  uo  < O.S, 

then  deliver  x *-  y.  Otherwise  deliver  x • y. 

The  method  was  programmed  in  Fortran  only,  and 
there  it  proved  faster  than  any  other  algorithm  described 
in  this  section:  an  average  sample  required  :83  x$ec. 

It  was  estimated  that  TR  would  require  uDout  300 
iiSec  if  it  were  programmed  in  assembler  code.  The 
similar  method  in  Marsagiia  and  Br.y  [16  should  be  as 
fast  as  TR  in  fortran  and  slightlv  better  than  TR 
(270usec)  in  assembler  code.  Both  algorithms  use  trans- 
cendental functions  which  impose  a space  penalty  if  they 
arc  not  required  in  other  pa^ts  of  the  program 

Holynomial  sV^mpling,  thc'esscnce  of  trie  next  -..•.hod. 
uses  no  standardyunciions  4nd  yields  cAra  f.exib.'.i' 
since  4ne  may  cho^  faster  programs  wi;h\»rger  lebics 
of  coefheients  or  slmrter,  but  ^ower,  procedures.  The 
polynomial  method  (YS),  given  mIow,  for  the\tand.ird 
normal  distribution  isVaster  (in  ysembler  eodV)  tr.an 
'any  previously  listed  nAthod  in  tnis  paper.  It  rAuires 
about  as  \nuch  space  ai,the  tasi  ^ routine  foVihe 
^mma  fubetion  which  lAes  as  muojt  memory  as' 
garithm  dpd  the  exponer 


kThc  arca'under  the 


functidns  combiiieu. 
of  v'(y)  iV-  (4.3)i  Is 

intdfivc  parfS:  1st,  2nd,  3rdV4th,  and  Yail  with  .irecs^ 
I 2,\l/4,  I/8,\l/I6,  and  I/I^espcctivelw  For  eaei.  of 
the  fi\st  four  p\rts  a table  has  u be  proviAd  folloumg 
the  prVKripiion^  in  the  procediwc  PL,  of  Scqion  2.  The 
Taylor^expansiods  at  the  four  left  interval  boundaries 
x„  are  UKd;  theiAcoelTlcicnts  cani^be  worked  out  easily 
by  computer  using  the  ditTeremiaIVcquation  v-' V -.iv*. 
Table  T Vontaini  the  resulting  values  of  x< , k r,  r, , 
and  P,  (iV  'he  nowtion  of  the  procedure  PL  m Sec- 
tion 2).  ' 
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'■  ;j  Nt-r  ".-.il  rji.iribuiion. 


. , .rith;  . 

N ' 

1 

IBM  360/50 

1 voatHAN  Assembler 

Core 

■ C.OC  6400 
Assembler 

1 

Core 

C (h  ..-C-  ;ne) 

1 .0(/aj0 

1093  (isce 

_ 

___ 

___ 

n 

1.27324 

' 'i03  (isce 

— 

— 



•\  ViOi.  I'olavi 

2.11981 

j 791  itsec 

384  liiec 

127W 

92  fiicc 

61W 

•T  Ccrc.cr-Taii) 

6.52932 

, llSAusec 

374  mScc 

86W 

40W 

. K.  (Trapczo.dai) 

2.33056 

1 583  p&ec 

— 

— 

— 



5.  VS  .Taxior-Series) 

1 .67594 

< 707  >4sec 

229  piCc 

213W 

56  nice 

160W 

:.  1 X 

1.26874 

6S0  itiec 

210  «isec 

274W 

— 



••  VS" 

1 .28387 

663  ii&ec 

202  ^sec 

295W 

) 



9.  RT  tRea. -Wedge-Tail) 

1 .28168 

. 647  >tsec 

168  mscc 

436W 

i — 

— 

v,N>T)  based  on  Tai^e  W,  choking  the  ^prophate  ac- 
or*  the  compiAer  in  hand^or  the^iform  vari- 
lolc  1 sf.n  I of  \^use  the  easting  u rtom  above. 
Since  8 this  u is  smelter  than  0^236  - rV32.  (This 
TablA^V  in  which  tnh^sum  of  fhc  probamlities  is 
-'l.Mf  iiS; : ;»uU  is  the  tai.'(13),  then  to  6.  Ofterwise 
e.'itr.ir.ed.  \ 

Vw.iul  san.plingj  (PL')  b-^od  on  frable 
...  rttogc  tVj . This  yields  a samplp  y.  Go\to  7. 
' .'.r^^ia's  tail  methoci  modified  hy  the  ^Igo- 
oc^cribed  under  T;^  (Table  2 under  Algo- 

_ J 1 J ^ I.  _ I * f l.i 


•o.*  ;'K 


S ;s  ticed^.)  The  result  is  a sample  y fromVthe 


-V  M _■ 


V.  • 


Ls  me 

TRA.N 

w^e 


..  S3.0,  f /2  - 4.5^  . \ 

-he, sample  y from •2,  5,  or  6 ‘the  slm 
red  -.rl  jlep  1.  The  result  is  delivereijl  as  me 
x'ror^./{X).  ^ [ 

-r5gra...s  r.cvUcu  <547  ^sec  m pOrtrH 
.‘icmbler.  Tne  core  requirements 
. . . ..' e»M,  75  words  for  the  tables  rdtultijig 

L . algcr;;hm  fsiep  4),  141  wofds  fir 

.equ  .vd  i.i  ;he  polynomial  sampling  pri- 
3 : ir.d^lO  words  for  the  Table  2 in  iiep  6. 
t;.ales  coasumeo  291  words  out  of  fa 
.,3c  (words  for  the  complete  assembltr 
e ajaOriihrr.  is  marginally  faster  thrln  t^e 
.1  V.  - . ..  vf  Mars-glia  et  It  also  needs!  more 
o.'  taoLs  b .i  uses  no  standard-function  sjibpro- 


....  . -.u.-tional  results  for  the  entire  series  of 
nro-'-'-ms  'or  the  normal  uistributio.n  are  now  sum- 
m..:izcd  Sundatd  Normal  Distribution.)  PA,  CT, 
^r,d  T~  A 1,.-  • also  • .-sted  in  coc-6400  Compass  code. 

T’-.c  ..:r.c:s  ucommend  SC  or  PO  only  if  con- 
vc  . 'Co  1.*  mcgr.immi.rg  is  the  main  consideration. 

->•  0 i.  m.  hod  like  TR  is  good  for  high  level 
j.-i  V.  i:c.'ca>  machine  code  utility  routines  should 
oc  Las.  _ un  CT  TS,  or  RT  depending  on  the  amount  of 
> oan  « atforded. 


.\d  1 . Algorithm  CT  was  speeded  up  by  10 
'<  . ..i  'w.i  = 4.87859  . aiso  gave  rise  to  several 
. . . .'/ri:  r . G.E.  Forsythe  and  the  authors  that 
->•.  wo  ^;th  TS  ana  RT.  They  will  be  published 
• j iKnu  . , oj  Compulation  and  in  a book  (Springer) 
-.  r..,.uor..  -m.  rs  by  the  authors. 
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SUBROUTINE  CaLRN 

C NEVUNS  STANOARO 

C LAST  revised  NOV.  20.  1972 


c...  the  purpose  of  this  subroutine  is  to  put  random  number 
c generator  calls  in  one  place 

C THIS  WILL  ALLOW  CONVERTING  TO  OTHER  SYSTEMS  WITH  A MINIMUM  OF  PAIN 
C...  IF  HNO  ■ ZERO  GET  A NEW  RANOOM  NUMBER.  -INSERT  INIO  RNW 
C IF  RNO  IS  POSITIVE  obtain  SEED  FOR  RANDOM  NUMBERS.  THIS  MUST 

c RE  done  before  the  first  Random  number  is  generaieo, 

C IF  HNO  a 1.  obtain  SEED  (RANDOMLY)  BY  READING  CLUCK .OTHERW I SE 

C USE  RNO  AS  value  of  SEED. 

C IF  HNO  IS  -I  DRAW  number  from  EXPONENTIAL  DI STH I«UT ION , ANY  OTWF.R 

C negative  number  draw  from  normal  distribution.  Nlo.l) 

COMMON  /TRaN/RNO.RMW 

IF(RNO  .NF.  0.)  GO  TO  10 

C get  a random  number  uniformly  distributed  from  0 TO  1. FLOATING  PT. 
C RAMF(O)  is  unique  TO  CDC  6400  FtN 
Rnm  a RANF(O) 
return 

10  CONTINUE 

IF  (PMO  .LT.  0.)GO  TO  20 
IF(RnO  .£(J.l.)GO  TO  15 

C initialize  Random  NUMBER  generator  with  RNO  AS  SEED 
C HANSFT  IS  UNIQUE  TO  CDC  A400  FTN 

CALL  HanSET(RNO) 

HFTUHN 


C u£AD  The  software  CLOCK  TO  OBTAIN  SEED  HOPEFULLY  AT  RANDOM. 

C THE  function  time  Is  CDC  0400  FTN  UNIQUE. 

15  CONTINUE 

CALL  TIMECCLTIMi 
CLTIM  a 4BS(CLTTM) 

RNI  = CLTIM  ♦ 1.2 
call  RAnSET(RNI) 

RETURN 


20  CONTINUE 

IFIRNO  .NE.  -1.)  GO  TO  40 

C DRAW  number  from  exponential  DISTRIBUTION  WITH  MtAN  a I 

II  m rAnF  (0) 

RNW  ■ _ ALOG(U) 

OFTURN 

40  CONTINUE 
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C 0P48  NU««EP  from  normal  niSTRlBUTION  WITH  MEAN  0 ANO  STO.  OEV.  1 

C USE  AS  METHOn  algorithm  TH  from  ACOMPUTtR  METhOOb  FOR  SAMPLING 

c FROM  The  exponential  ANO  NORMAL  0 1 STR I PUT  I ONS* . J.  H.  AHERNS 

C A, -JO  II.  DIETER,  COMMUNICATIONS  OF  THE  ACM,  OCT.,  1972,  VOL.  15, 

C NO*  10,  P.  873. 

41  CONTINUE 

U X RAnF(O) 

Ijg  S HANF  (OJ 

IF(U  .GE.  o.9i9S444o57o6926  ) GO  TO  42 
RNW  X 2.4o37576S693742*(U0  ♦ 0*0.825339282536923)  - 
1 2.1l4n28o8333742 

42  CONTINUE 

IF(  U .LT.  0.965487131213858)  GO  TO  44 

4.T  CONTINUE 

IJl  a RANr  (0) 

Y a 4. 409i 14737)3927  - 2.*AL0G(U1) 

U2  a HAnF(o) 

IF(  v*u2  .6T.  2,114o28oR3337?4)  GO  TO  43 
GO  TO  49 

44  CONTINUE 

IF(U,LT,  0.949990708733028)  GO  TO  *6 

*5  continue 

Ul  « RAnF (0) 

Y a i,34o3987473977j  * Ul *0 .2736293359397q6 
U2  s RANF (n) 

TEMP  a 0.3989*228o4o1433*ExP(»Y*Y/2.)  - 0. *43299125320220 
1 * Y*n.20‘78'’4o57l95486 
IF(  tE«P  .LT.  U2*o.g427o258i59o795)  GO  TO  45 
GO  TO  49 

CONTINUE 

IF(  I)  .LT.  0.925852333707704  ) GO  TO  48 

47  CONTINUE 

in  a RanF (0) 

y X (1.289729573600000  ♦ ' 1 1*  1 . 55o669 1 737977 1 
1)2  a PAnF  ( n ) 

TEMP  a o.398942280401433*EXP(-Y*Y/2.)  - 0 .4432991 25820220 
) ♦ V*  O*2o9''94o57i95406 
IF<  TEMP  .LT.  U2*0*0l5974b22655238)  GO  10  47 
GU  To  49 

48  continue 

Ul  a PAnF(O) 

T a 111*  0.289729573600000 

IJ?  a RANF((y) 

TEMP  a o.3989*22«04o1433*ExP(-Y*Y/2.)  - 0 . 3 8 25**856 0 *25 1 8 
IFTTFmr  ,lT.  U2*  0.0163977;,4358915)  GO  TO  *8 
GO  To  49 
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CONTINUE 

IF(  UO  .LT.  0.5)  GO  TO  50 

PNW  a .Y 
PETURN 
CONTINUE 
RNW  a Y 

return 

ENO 
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FUNCTION  CUMNOR  (Decyt 


A.  GENERAL 

This  function  computes  the  cumulative  normal  function 


X -t^/2 

e dt 


It  is  based  on  a formula  in  Hastings^  on  page  169  which  has 
a maximum  error  of  0.00000015.  A faster  formula  may  be  found 
on  page  187  which  does  not  require  computing  the  exponential 
function. 

B.  REQUIREMENTS  ON  THE  CALLING  PROGRAM 

The  calling  program  furnishes  a value  of  argument  x which 
is  normally  distributed  with  mean  0 and  variance  one.  The 
function  value  is  the  cumulative  distribution  function.  If  x < 7 
a value  of  0.0  is  returned.  If  x > 7 a value  of  1.0  is  returned. 

C.  ALGORITHMS  IMPLEMENTED 
Let 

^ " ^1+0.2316419-lxl^ 

D = .03989432  exp(-O.Sx^)  . 

Then 

P=1.0-D-T((((1.330274T-1.821256)T  + 1.781478)T 
-0.3565638)T  + 0.3193815)  . 


1.  Hastings,  Cecil,  "Approximations  for  Digital  Computers," 
Princeton  University  Press,  1955. 
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FUNCTION  Cll"NOH  (XJ 


05 


10 


15 


2 0 


25 


30 


C NEVUNS  STAMOAPO 

C LAST  HEVISEO  NOv.  7,  1S72 

C CO^PllTFS  Y a P(X)  » PS0BA8ILITY  THAT  THE  RANDOM  VARIABLE  U. 

r niSTPlRUTEO  NOHMALLYlO.l) ♦ IS  LESS  THAN  OR  EOUAL  TO  X. 

C IF  X Is  greater  than  7 pal 

C IF  X IS  LESS  THAN  -7  P » n 

C SEE  HUSTINGS  APPROX  FOR  DIGITAL  COMPKTEERS.  P.  169 
c PETTfR  IS  HASTINGS  P.  \A7  WHICH  DOES  NOT  HAVE  TO  USE  THE  FXP 

C FUNCTION,  SEE  function  CUHNOA 

AX  a AflS(X) 

IF  (AX  - 7.0)  10*10»20 
m CONTINUE 

T a 1 .0/ (1.0*.2316*i9*aX> 

0 a r-.39H9*23*EXP  (-o.5*x*X> 

P a 1.0  - 0*T»( t ( (1 .33027u*T  - 1.821256)*T  * 1,7B1*79)*T  - 
A n,3S656TS)«T  ♦ 0.3193815) 

IF  (X)  1,2.2 

! P a 1 .0  - P 

a CUMNOR  a P 
RPTUPN 

2n  IF  (X)  30,30,40 
30  CUHNORafl, 

return 

*r  CU-'NORal.C 

RFTUPN 


»««*  ii'ICLaSpif  ICO  ••••  II~91  11/07/72 


PAGE  NO.  0000J2 


L 


SUBROUTINE  FORD(Deck  #210) 

A.  GENERAL 

This  subprogram  orders  elements  in  an  array  in  increasing 
numerical  order.  The  subprogram  uses  a very  simple  ordering 
technique,  and  is  much  slower  than  other  methods.  It  was  written 
to  be  a simple  subprogram  written  strictly  in  FORTRAN  for  ordering 
arrays  which  are  not  too  lengthy. 

B.  REQUIREMENTS  ON  CALLING  PROGRAM 

The  external  communications  are  augmented  in  the  calling  of 
the  subroutine.  They  are 

ARR(I) — the  array  to  be  ordered.  This  array  is  treated  as 

a floating  point  number  between  -»  and  <»  and  numbers 
are  ordered  algebraically. 

LARR(i) — index  to  the  ordered  numbers.  The  numbers  in  ARR 
are  not  physically  rearranged  but  the  array  LARR 
gives  the  place  in  ARR  for  increasing  values  in  ARR, 
with  the  first  entry  in  LARR  referring  to  the  lowest 
number.  Thus  ARR(LARR(1))  is  the  smallest  element, 
ARR(LARR(2))  the  next  smallest,  and  ARR ( LARR ( NITM ) ) 
the  largest  element. 

NITM — the  number  of  elements  to  be  ordered.  It  is  the  calling 
program  responsibility  to  insure  NITM  is  a correct  value 
since  the  subprogram  has  no  error  responses. 

C.  ALGORITHM  IMPLEMENTED 


Th.e  ordering  is  very  simple.  Suppose  the  first  i things  in 


LARR  have  been  ordered.  If  the  i+1  item  is  larger  than 


ARR(LARR(i))  then  LARR(i+l)  = i + 1.  If  not,  then  a search  is 


PFffiCSDINS  PACK  BLANK-HOT 


! 

made  through  the  first  1 elements  in  increasing  order  (using 

LARR(D)  until  a larger  item  is  found.  Then  It  and  all  higher 

s t • 

values  of  ARR  are  pushed  down  one  in  LARR,  and  the  1+1  item 
Inserted  In  LARR. 
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SUBROUTINE  PROJCT  C 


A.  GENERAL 

This  subroutine  transforms  from  latitudes  and  longitudes  to  rectangular 
coordinates.  A control  parameter  determines  whether  the  output  is  in  a 
rectangular  coordinate  system  in  statute  or  nautical  miles,  a grid  system, 
or  in  inches  for  map  plotting.  Another  control  parameter  determines  the 
type  of  projection  used.  A number  of  standard  map  projection  schemes  are 
implemented  to  enable  plotting  overlays  for  a variety  of  maps.  In  addition, 
a projection  to  a set  of  rectangular  coordinates  is  given  which  reduces 
distortion  in  distance  calculation  due  to  earth  sphericity  to  at  most  a 
few  percent.  This  is  done  though  at  the  expense  of  true  North  deviating 
from  North  in  this  coordinate  system  by  up  to  150.  An  option  allows  the 
grid  system  to  be  used  for  this  projection  which  in  effect  replaces  the 
latitude- longitude  system  with  one  or  more  appropriate  for  approximate 
distance  calculations  in  the  United  States. 

To  simplify  use,  the  control  of  the  subroutine  is  the  same  for  each 
projection  although  different  data  items  may  have  to  be  supplied  for  each 
projection.  A value  of  control  parameter  JC=2  uses  default  values  of  most 
input  constants,  a value  = 3 requires  the  user  to  supply  most  values.  In 
normal  use  the  subroutine  is  first  called  with  JC  = 2 or  3 to  initialize  it, 
and  then  called  with  OC  = 1 to  get  coordinate  values  from  the  input  latitude 
and  longitude. 

B.  REOUtR£i;iENTS  QN  CALLING  PROGRAM 


Tlie  communications  with  the  calling  program  are'  through  the  common  block 
/CARTOG/.  These  variables  define  what  is  desire  of  the  calling  progr:' . 

IC  - Control  for  type  of  projection 

IC  = 1 Flat  earth  distance  elements  from  sphere 
= 2 Flat  earth  distance  elements  from  ellipsoid 
= 3 Rotate  coordinate  system'  to  get  projection  error  as  if  on  the 
equator  looking  sideways  at  the  earth 
= 4 As  3 but  also  stretch  coordinates  to  minimize  distance  errors 
= 5 Albers  equal  area  projection  v/ith  two  standard  parallels  on 
ellipsoidal  earth 

= 6 Albers  equal  area  projection  with  tv/o  standard  parallels  on 
spherical  earth 

= 7 Mercator  projection  on  ellipsoidal  earth 
= 8 Mercator  projection  on  spherical  'earth 

= 9 Lambert  conformal  conic  projection  with  two  standard  parallels 
on  ellipsoidal  earth 

= 10  Transverse  mercator  projection  on  ellipsoid 
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*=  11  Universal  transverse  niercator  projection 

= 12  American  polyconic  projection  on  ellipsoidal  earth  i 

= 13  Trapazoidal  projection  on  spherical  earth  j 

= 14  Sterographic  horizon  projection  on  spherical  earth  [ 

JC  - Control  for  type  of  action  for  this  call.  A call  with  JC  = 2 or  3 (except 

when  IC  = 12)  is  always  needed  to  initialize. 

1 

JC  = 1 Find  coordinates  of  one  point  ' i 

= 2 Initialize  using  prestored  data  . 

= 3 Initialize  using  data  supplied  in  /CARTOG/;  Requirements  for  i 

l~  supplying  data  are  described  more  fully  below.  ! 

KC  - Control  for  type  of  output. 

KC  = 1 Output  in  rectangular  coordinates  in  statute  miles 
= 2 Output  in  grid  coordinates  of  50  statute  mile  intervals 
=3  Output  in  inches  for  maps  centered  on  FLATC,  FLONC 
=4  Output  in  rectangular  coordinates  in  nautical  miles 
= 5 Output  in  grid  coordinates  of  60  nautical  mile  intervals 
= 6 Output  in  inches  for  maps  centered  on  CRMPLA,  and  CRMPLO 

’ for  latitude  and  longitude  with  coordinate  system  centered  on 

FLATC,  FLONC 

i 

FLATP  Input  latitude  (degrees)  for  a point  to  be  plotted 

Always  needed  if  JC  * 1 

FLONP  Input  longitude  (degrees)  for  a point  to  be  plotted 

Alv/ays  needed  if  JC  = 1 ^ 

Y Output  ordinate  in  rectangular  coordinate  system,  (the  meaning 

I depends  on  the  value  of  KC) 

X Output  abascissa  in  rectangular  coordinate  system,  (the  meaning 

depends  on  the  value  of  KC) 

RHO  Polar  coordinate  radius  output  in  statute  miles,  defined  for 

conic  projections.  If  IC  *=,  11,  output  of  Y coordinate  in 
meters  k' 

THETA  Polar  coordinate  angle  output  in  radians,  defined  for  conic 

projections.  If  IC  = 11,  output  of  X coordinate  in  meters 

FLATC  Latitude  of  center  of  coordinate  system  (degrees). 

Always  needed  if  JC  = 3.  If  JC  = 2,  FLATC  is  needed  if  IC  is  1, 

2, 7-, 8, 10, 12, 13  or  14.  When  KC  ='l  or  4,  distances  are  measured 
i from  the  point  defined  by  FLATC,  FLONC. 

FLONC  Longitude  of  center  of  coordinate  system  (degrees) 

Needed  as  with  FLATC  _ 
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SCALE 

STRCHUR 

STCHAR 

HILATR 

ROLATR 


XGDSTR 


YDGSTR 

XMPOFR 


YMPOFR 

CRMPLA 


CRMPLO 


Map  scale  factor.  Distances  on  earth  are  divided  by  scale 
to  obtain  map  distances. 

Needed  if  JC  1 and  KC  = 3 or  6. 

Paper  stretch  factor.  North-South  distances  are  multiplied  by 
STRCHUR  to  compensate  for  paper  stretching.  Needed  if  JC  = 3 
and  KC  = 3 or  6.  In  standard  use  this  value  is  near  1. 

As  STRCHUR  but  in  East-West  direction 

Latitude  of  highest  latitude  standard  parallel  (degrees) 

Needed  if  JC  = 3 and  IC  = 5,  6 or  9.  If  IC  = 11  this  parameter 
has  a different  use.  Its  value  is  used  to  select  the  spheroid. 
See  ITTM  description. 

Latitude  of  lowest  latitude  standard  parallel  (degrees) 

Needed  if  JC  = 3 and  IC  = 5,  6 or  9.  If  IC  = 11  this  parameter 
has  a different  use.  If  ROLATR  = 0 the  zone  selected  is  that 
one  containing  FLONC,  othenvise  it  specifies  the  zone  number. 

See  UTM  description. 

Number  of  statute  miles  to  subtract  from  center  of  coordinate 
system  for  EW  origin  of  grid.  Needed  if  JC  * 3 and  KC  = 2 or  5, 
i.e.,  location  of  Western  corner  of  grid  in  statute  miles  in 
coordinate  system  with  KC  = 1. 

Same  as  XGDSTR  but  in  North-South  direction 

Inches  right  offset  for  pen  in  plotting  maps.  XMPOFR  = -15  means 
the  pen  starts  15"  to  the  left  of  the  center  of  the  map.  Needed 
for  large  scale  maps  of  small  areas.  Needed  for  JC  = 3 and 
KC  = 3 or  6. 

Same  as  Xf-IPOFR  but  in  upwards  direction. 

Latitude  (degrees)  of  center  of  map.  Used  when  the  center  of 
the  map  is  different  from  the  center  of  the  coordinate  system. 
Especially  used  for  large  scale  maps  of  small  areas.  Needed  if 
KC  = 6. 

Same  as  CRMPLA  but  in  longitude. 


Besides  the  standard  FORTRAN  functions  the  subroutine  requires  a function 
ASIN  which  returns  a value  of  angle  in  radians  which  is  the  arcSIN  of  an  input 
value  between  0 and  1. 

C.  ALGORITHMS  IMPLEMENTED  \ 

The  algorithms  to  compute  the  values  of  X and  Y from  the  center  of  the 
coordinate  system  are  described  below.  Those  items  which  are  common  for  every 
input-point  are  precomputed  in  initialization  calls.  .In  addition,  some  valuer. 
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for  specific  output  types  are  precomputed  in  the  initialization.  To  be 
consistent  with  most  standard  projections  the  calculations  assume  a Clark 
Spheroid  of  1866,  except  for  IC  = 11.  If  other  spheroids  are  desired  the  • 

constants  CLARK  for  Earth  Radius  in  statute  miles,  ECC  for  eccentricity 
and  ECCSQ  for  eccentricity  squared,  STOID  for  number  of  statute  miles  per 
degree  of  latitude,  AIMES  for  CLARK  (1-ECCSQ),  ECCTRO  for  ECCSQ/U-ECCSQ) 
and  ECCH  for  ECC/2,  defined  in  data  statements,  should  be  changed. 

-The  value  of  the  earth  radius  is  given  in  statute  miles.  This  is  obtained 
by  dividing  the  values  in  meters  used  in  the  standard  definition  by  the  number 
of  meters  in  a statute  mile.  This  latter  value  is  obtained  by  using  the  legal 
definition  of  a meter  as  exactly  39.37  inches.  The  conversion  to  nautical 
miles  is  obtained  using  the  value  of  6080.27  feet/nautical  mile.  If  the 
subroutine  is  exercised  with  IC  = 2 and  FLATP  one  minute  larger  than  FLATC, 
the  result  is  the  number  of  statute  miles  in  a nautical  mile  if  a nautical 
mile  has  the  alternative  definition  as  the  length  of  a minute  of  arc  at 
the  latitude  of  interest.  Values  for  other  spheroids  are  given  in  the  UTM 
discussion. 

FLAT  EARTH  (IC  = 1 or  2) 

For  an  assumed  flat  earth  the  x and  y coordinates  are  computed  by 


X = C^AA 

y = CyAL 

where  AA  and  aL  are  differences  in  latitude  and  longitude. 
For  a spherical  earth  C^  and  C^  are  computed  by 

Oy,  - h COS  L^ 

Cy  = A 

vdiere  L^.  is  the  latitude  of  the  center  point, 

A is  the  number  of  statute  mi les/degree(=69. 17133901148) . 
For  an  ellipsoidal  earth  the  values  of  C^  and  Cy  are 

A cos  L^. 


1 


1 ^ 
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COORDINATE  SYSTEM  ROTATION  (IC  = 3 or  4) 


This  projection  rotates  coordinates  so  that  the  center  of  projection 
is  at  the  center  of  the  coordinate  system,  i.e.,  at  Lq,  Xq. 

The  projection  then  assumes  a flat  earth  based  on  the  new  coordinate 
system.  . It  gives  the  same  errors  as  if  the  region  near  the  earth's  equator 
were  projected  v/ith  a flat  earth  approximation.  A correction  allows  a 
stretching  to  minimize  distance  calculation  errors.  The  equations  are 
•derived  since  no  direct  reference  is  known. 

•The  following  figure  illustrates  tv;o  coordinate  systems,  the  unprimed 
natural  coordinates  and  the  primed  coordinates  rotated  along  the  central 
meridian  so  the  equator  comes  at  a latitude  Lq  along  the  central  meridian. 
For  a point  x with  coordinates  Lx»X  in  the  earth  coordinate  system,  we 
wish  to  find  and  x'  in  the  rotated  coordinate  system. 


II-lOl 


'X 


im 


Let  a colatitude  be  denoted  by  a bar  over  a symbol  e.g.,  = n/2  - 


sin  = cos 

cos  = sin  L^, 

- The  figure  illustrates,  for  a point  x,  latitudes,  longitudes,  and  colatitud 
both  in  the  earth  coordinate  system  with  pole  P and  the  primed  coordinate 
system  v/ith  pole  P‘.  From  the  law  of  cosines  for  triangle  PP'x 


cos  = cos  Lq  cos  + sin  sin  cos  $ 

Since 

e = 180  - X, 

sin  = cos  sin  - sin  cos  cos  X. 

For  the  same  triangle  from  the  law  of  sines 


sin  x' 
sin  Fv 


sin  $ 
sin  Fjj' 


I . *-x 

sin  x'  * sin  X 

cos  L/ 

Thus  and  x'  can  be  obtained  directly. 

If  an  assumption  of  a flat  earth  is  made  for  the  primed  coordinate  system 
X *=  A x' 
y = AL/ 

where  A is  the  number  of  statute  miles/degree  if  Lx'  and  x'.  are  in  degrees. 

The  primed  coordinate  system  is  normally  centered  at  L^  = 40°  and  Xq  = 90° 
West  of  Greenwich. 

The  majority  of  the  population  of  the  United  States  lives  within  50  of  the 
40°  parallel.  The  error  in  computing  East-West  distances  is  proportional  to 
1-cos  Lx'.  At  the  boundary  of  the  5°  bank  this  error  is  0.5  percent.  The 
maximum  error  is  at  the  tip  of  Florida  where  Lx'  = -15°.  At  this  point  the 
error  in  East-West  distances  is  3.5  percent. 
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The  local  errors  in  computing  East-West  distance  may  ^e  lessened  by 
dividing  the  x coordinate  at  a latitude  L by  cos  L v/here  L is  defined  as 
the  actual  latitude  minus  the  latitude  of  the  center  of  the  projection. 

This  will  give  correct  East-West  coordinates,  however  shapes  will  be 
distorted  so  that  distances  along  lines  running  Northeast  are  lessened. 

To  compensate  for  this  a factor  a is  defined  which  allows  stretching  distances 
by  a times  the  full  compensation  for  East-West  coordinates.  The  x coordinate 
stretching  is  then  given  by 

E'  = E(1  - a (1-cos  E)). 

To  determine  v/hat  the  distance  errors  might  be,  imagine  a displacement 
Ax  in  the  easterly  direction  in  the  stretched  coordinates  and  Ay  in  the 
northerly  direction.  In  actual  distance  coordinates  we  have 

Ay'  = Ay,  ax'  = AX  cos  U. 

Here  locally  a flat  earth  is  assumed  and  only  second  order  terms  for  the 
series  expansion  of  cos  L are  retained.  The  displacements  do  not  form  a 
rectangle  but  a parallelogram  will  be  vertically  rotated  on  angle  0 to  the 
East  due  to  the  stretching  of  Eastward  distances.  We  have 

0 s Aa( 1-cos  F)  a gAl 
L 2 

The  true  distance  is  given  by 

d2  = Ay^  + Ax^cos^r 
and  the  map  distance  by 

= Ay^  + (Ax-Ay  tan  a)^ 

We  wish  to  choose  a value  of  a to  minimize  Efn=D^-D^  so  can  be  best 
approximated  by  Ax^  + Ay^.  Let  R =Ay/Ax  . 

Then,  to  second  order  terms  in  cos  U' 

E = Ax^(-&RaX--°i^iK) 

2 4 ' 

Now  if  r and  x are  small,  then  E is  minimized  by  minimizing  the  first  two 
terms,  in  other  words 


Nov/  moreover  if  ax  and  Ay  are  identically^  distributed  in  a random  , 

distribution,  then  the  appropriate  value  if  L and  x are  also  identically  i 

distributed  for  R is  one,  and  copt  = h-  The  stretched  coordinate  system  * 

uses  this  value  of  a,  and  extends  East-West  distances  by 

E = E‘(l  - i ) 

If  distances ‘which  are  predominantly  North-South  or  East-West  are  considere> 
those  values  might  be  changed. 


ALBERS  CONICAL  EQUAL  AREA  PROJECTION  {IC  = 5 or  6) 

Th'»  equations  with  two  standard  parallels  for  the  Albers  Conical  Equal  Area 
Projection  for  an  ellipsoidal  earth  are  from  pp.  96-102  in  the  book  by  Deetz 
and  Adams. ^ For  a given  latitude  and  longitude  from  the  central  meridian  X, 
values  of  polar  map  coordinates  p and  e are  computed.  The  angle  e is  computed 
by 


e = nx 


where  n is  a constant  depending  on  the  latitude  of  the  standard  parallels 
chosen  (usually  29HP  and  45%°  for  maps  of  the  United  States),  n is  computed  by 

cos  2 _ cos^ 

i-e2  sin^  (fij  l-e^  sin^  <t>2 

2 

2c  sin  $2  " sin 

where  a = earth's  radius 


e = spheroid  eccentricity 

“ latitude  of  the  standard  parallels 

c2  =r  a^d-e^)  F with 

F = 1 + 2/3  e2  + 3/5  e^  + 4/7 

^2  authalic  latitudes. 


^Charles  H.  Deetz  and  Oscar  S.  Adams,  "Elements  of  Map  Projection,"  U.S.  Coas’ 
and  Geodetic  Survey,  Special  Publication  No.  68,  U.S.  Government  Printing 
Office,  Washington,  D.  C.,  1945 
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Authalic  latitudes  are  computed  from  actual  latitudes  by  the  equation 


sin  e = sin  ^ 


1 + j e^  sin^  «ji  + |-  e^  sin^  ((>  + y e®  sin®  ^ 

1 + 2 e2  + 1 ^ e® 

>5  5 7 


The  radius  p is  computed  by 

o o 4c2  sin  - sin  6 

+ 1 

2 n 2 

where  p.  is  the  radius  for  one  of  the  standard  parallels  computed  by  the 
formul \ 

a cos  4>2 

P2  “ 

nCl-e2  sin^  ^2^^ 

Given  values  of  p and  0 rectangular  coordinates  x and  y are  computed  by 
X ■*  p sin  0 
y « pq  - p cos  0 

Where  p is  found  for  the  center  of  the  rectangular  coordinate  system  (for 
maps  of  the  U.S.  this  is  usually  taken  as  39°  latitude  and  96°  longitude). 

The  units  of  x and  y are  the  same  as  the  units  of  earth's  radius,  i.e.,  statute 
miles. 

For  a spherical  earth  the  equations  used  are  simply  found  by  setting  e = 0 
in  the  above  equations.  One  consequence  is  that  the  authalic  latitude  6, 
becomes  equal  to  the  actual  latitude  4>. 

MERCATOR  PROJECTION  (IC  = 7 or  8) 

The  equations  for  a Mercator  Projection  are  from  Deetz  and  Adams,  p.  114.2 
We  have 

r 


X - ax 

y “ a logg  ( 1/tan (f/2)) 


where  */2  is  defined  by 

■ tan  */2  = tan  p/2 

1 - e cos  p 

with  p = ir/2  - 4>. 

LAMBERT  CONFORMAL  CONIC  PROJECTION  WITH  TWO  STANDARD  PARALLELS  (IC  = 9) 

The  Lambert  Conformal  Conic  is  discussed  briefly  in  Deet^  and  Adams 
Special  Publication  No.  68.  The  basic  equations  except  for  the  series 
expansions  are  taken  from  Special  Publication  No.  522. 


The  transformation  preserves  right  angles  and  is  exact  on  two  standard 
parallels. 


A variable  z is  defined  by  the  equation 

tan  z/2  = tan  p/2  (1>  e cos  p ) e/2 

1 - e cos  p 


where 

e. is  the  spheroid  eccentricity 
p is  the  colatitude  = ir/2  - 4>. 
g/2 

The  term  is  a correction  term  with  value  near  1. 

1 - e cos  p 

For  any  value  of  a radius  r is  computed  by 
r = K(tan  z/2)^ 

Where  t is  computed  from 

(1-e?  sin^  cos 

, jk)  =109 


. , .tan  fi/2, 

I09  (r = log 

tan  fp/2 

and  K is  computed  from 


(l-e2  sin2  cos 


cos  (j)j 


(l-e^  sin^  * t(tan  Zj/2)^ 


2 

Oscar  S.  Adams,  "Lambert  Projection  Tables  for  the  United  States,"  U.  S.  Coas- 
and  Geodetic  Survey,  Special  Publication  #52,  U.  S.  Government  Printing  Office 
Washington,  D.C. , 1918  _ 
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Here  (|ij  and  <^2  latitudes  of  the  standard  parallels,  usually  45° 

and  39°  for  maps  of  the  United  States.  K and  z are  computed  in  the  initiali 
zation.  A radius  rg  is  computed  for  the  latitude  of  the  center  of  the.  map 
(39°)  for  U.S.  maps.  Then  rectangular  coordinates  x and  y are  computed  by 


X = r sin  z\ 

y «*  Tq  - r cos  tx  i 

where  X is  the  longitude  from  the  central  meridian. 

THE  TRANSVERSE  MERCATOR  PROJECTION  (IC  = 10) 

The  transverse  mercator  projection  is  basically  a mercator  projection 
rotated  90°  so  one  meridian  is  presented  at  true  length,  instead  of  the 
equator.  The  user  is  free  to  choose  the  center  meridian  by  the  value  of 
FLONC,  as  opposed  to  the  universal  transverse  mercator  projection  v.’hen  the 
center  value  forced  by  the  zone  system.  The  formulas  used  here  from  Thomas'^ 
are  suggested  for  bands  running  2°  from  the  central  meridian,  as  opposed  to 
more  extensive  formulas  for  5 to  6°  bands.  For  most  map  projection  purposes 
hov/ever,  these  formulas  should  be  adequate  for  larger  band,  and  are  faster 
to  use  than  the, higher  order  calculation.  We  have,  in  Thomas's  notations 


x/N  = 
yAi  = 


^ cos  <fr 

p . 6? 


S<&  + ax  sin  <»  cos 


N 


2p^ 


(i-t^  + ^2)  . Mi-casii. 

120P”' 

— '(sin  4>  cos^<}))  (5-t^) 

24p^ 


Where  <{>  = latitude  ax  = longitude  from  central  meridian,  degrees 

p = cosec  1"  (in  the  implementation  since  X is  in  radians  this 
conversion  is  not  used) 


t » tan  (|> 

2 2 2 
N » £ cos^  <|i 

1-c^ 

m 

N **  a/(l-c^  sin^({>)^/^ 

S.  •=  meridian  are  from  the  equator  to  latitude  <|),  (see  Polyconic 
^ projection  for  a description  of  the  calculation  of  S^) 


^Paul  D.  Thomas,  "Conformal  Projections  in  Geology  and  Cartography",  Special 
publication  #251,  U.S.  Department  of  Commerce,  Coast  tleodeti.c  Survey,  U.  S. 
Government  Printing  Office,  1952,  p.  4. 
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UNIVERSAL  TRANSVERSE  MERCATOR  PROJECTION  (IC  = 11) 

The  universal  transverse  mercator  projection  outputs  distance  in  meters 
on  grids  defined  for  zones  covering  the  earth.  There  are  60  zones  beginning 
with  #1  covering  from  18QO  to  174°  West  Longitude  and  sequentially  increases 
to  number  60  from  174°  to  180®  East  Longitude.  Thus  for  example  zone  17  in 
the  United  States  extends  from  Longitude  84°  to  78°.  In  each  zone  distances 
North  of  the  equator  in  meters,  and  distances  in  meters  East  of  the  central 
zone  meridian  (eq.  81°  in  zone  17),  increased  by  500,000  meters  to  keep  all 
Eastings  positive,  are  output.  In  the  projection  the  output  distance  Y and 
X are  in  statute  miles,  and  the  control  parameter  KC  is  restricted  to  1.  The 
Northing  and  Easting  values  in  meters  are  given  by  the  variables  RHO  and  THETA 
in  common  block  /CARTOG/. 

The  implementation  is  based  on  the  Army  Technical  Manual  defining  the  UTM 
grid^,  and  appears  accurate  at  least  to  the  nearest  meter.  The  zone  control  is  jl 

governed  by  the  parameter  ROLATR  on  an  initialization  call.  If  ROLATR  is  equal 
to  0 the  zone  selected  is  that  one  containing  FLONC.  If  ROLATR  is  not  zero  tiie 
zone  selected  is  the  value  of  ROLATR  (for  a value  of  ROLATR  less  than  0 or 
greater  than  60  an  error  stop  is  given).  The  spheroid  selected  is  determined 
by  the  value  of  HILATR  in  the  initialization  call.  A value  of  0 or  1 selects 
the  Clark  1866  spheroid.  A value  of  2,  3,  4 or  5 selects  the  Clark  1880, 

International,  Everest,  or  Bessel  spheroids  respectively.  A map  in  the  Technic  1 
Manual  indicates  the  spheroid  to  be  used  for  different  world  . areas.  Roughly 
they  are  Clark  1866  for  North  America  and  the  Phillipine  Islands;  Clark  1880 
for  Africa  South  of  the  Sahara  Desert;  Everest  for  India,  Pakistan,  Afghanistan 
and  Indochina;  Bessel  for  Indonesia,  Japan,  Korea  and  Manchuria;  and  Internatic  al 
elsev/here. 


The  calculation  of  Northing  and  Easting  in  the  notation  of  the  manual  is  given  y 
N * (I)  + (II)p^  + (IIDp**  + Ae 
E = (IV)p  t (V)p^  + Bs 

(For  the  Southern  Hemisphere  a false  Northing  of  10,000,000  meters  is  added.) 
where 

p *=  0.0001  L\  with  L\  the  longitude  from  central  meridian  in  seconds 

of  arc 

(I)  - 1=0 


^''The  Universal  Transverse  Mercator  Guide",  Department  of  the  Army  Technical 
Manual  TM  5-241-8,  Headquarters,  Department  of  the  Army,  July  1958. 
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(II)  = vsin  <|>  cos  <t>  sin^l"  ko  * 10^ 


(III)  , si^i:  V sin  ^ cos___£  ^ ^ 


16 


24 


(IV)  = V cos  <j>  sin  1“*  ko  * 10 
3...  3 


(V)  . sjnrvcos  » ^ ^ 

D 


12 


6 . 6,„  . 5 

p Sin  r'  • V Sin  (fc  cos  (|>  2 4 

'6  * ^ =,r^ (61-58  tan  (|>  + tan  <i> 


720 


+ 270e'^  cos^(j)  - 330e'^  sin^<{.)  xko  x 10^** 


Bs 


6 . 5-„  5 

_ p Sin  r V cos  2 4 *2  2 

(5-18  tan  ^ + tan  ^ + 14e  cos  ^ 


120 


>2  2 . / . 

- 58e  sin  (|))  * ko  • 10 


.20 


with  S<|)  = meridional  distances  on  the  spheroid  from  the  equator  (see  polyconic 
projection). 


ko  * central  scale  factor,  an’  arbitrary  factor  to  reduce  the  maximum 
scale  distortion  = 0.9996 


sin  1"  = conversion  factor  = 4.848136811  x 10"® 


^ = latitude 
V = a/(l-e^sin^ 


• 2 2 2 

e.  = e /1-e 


The  eccentricity  is  computed  from  the  flattening,  f , which  is  used  to  define 
the  spheroid  by  . . 


.2 . 1 


fe  e 
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POLYCONIC  PROJECTION  (IC  = 12) 


The  equations  for  the  Polyconic  Projection  are  from  Oscar  S.  Adams, 
"General  Theory  of  Polyconic  Projection",  U.  S.  Coast  & Geodetic  Survey 
Special  Publication  No.  57,  U.S.  Government  Printing  Office,  Washington, 

D.  C.,  1934.  The  equations,  except  for  the  integration,  are  from  the 
section  bn  "Ordinary,  or  American,  Polyconic  Projection"  pp.  143-152.  A 
spheroid  is  assumed  as  the  earth  shape. 

Let  ^ be  latitude,  A longitude  from  the  central  meridian  on  earth.  On 
a map  let  s be  the  distances  up  from  the  origin  to  a point  s,  e the  angle 
on  the  map,  and  p the  length  of  a vector  from  s to  the  point  to  be  plotted. 

Then: 


p - a cot  (ti 

(l-e2  sin^  4,)^ 


e = A sin  4> 

"»• 


a (l-e^) 


_dj 

0 (1-e^  sin^ 


a cot  41 
(1-e^  sin^ 


The  first  term  is  the  true  meridional  distance  from  the  equator  along  the 
spheroid  also  used  in  some.«ther  projections.  This  integral  is  calculated 
by  expanding  the  denominator  in  a series. 


Thus 


d 41 


(1-e^  sin^  *)3/2 


5 *♦  . ^ ^ 

TE  sin  4> 
4 


+ 3^5.4 2 n+1  . 

^2  7 6 IT-  " 


Now  defi 
and 


ine:  Tj  * f*  sin^  4>  = |- 
J n 


s1n4>  cos  4> 


„ • r s1n""  ♦<!  ♦=  . iiill  f*  , 

' d 2”  2n  ° 


n-iio 


Then 

j 2n-l  -n-1 

T ^ sin  if,  cos  j.  2 T 

" ' 2„  ■ 

Call 

„ s sini  cosj) 

2 


so 


'n-1 


sin^*^  ^ <fi  a ^ 2 n-1 


n 


2n 


n-1 


Call 


Then 


F-  4i 


F F.  , 

3 23  J 


F — • ♦ + f 1 T]  + F,  T + F T + 


A recursion  formula  is  readily  coded  to  calculate  Fj  and  Tj  from  Fj^j 
Carrying  the  series  to  j = 4 yields  adequate  accuracy  for  this  purpose. 

The  X and  y coordinates  are  those  formed  from 

x ~ p sin  0 

y = s - p cos  0 

TRAPEZOIDAL  PROJECTION  (IC  = 13) 

The  trapazoidal  projection  is  a simple  projection  which  offers  an 
Improvement  over  the  flat  earth  projection  by  accounting  for  the  convergence 
of  meridian  at  the  map  central  latitude.  It  ^sumes  the  meridians  are 
straight  lines. 


Let  Lq,  Xq  of  the  latitude  and  longitude  for  the  center  of  the  projection 
and  L and  x be  the  latitude  and  longitude  of  any  point.  Then 

X = (Xo  - x)  ‘ cos  Lq  - (L-Lq)  sin 
Y = L-Lo- 

X and  Y are  multiplied  by  the  appropriate  conversion  factors  to  yield 
statute  miles.  The  subroutine  must  be  initialized  to  define  FLATC  and  FLONC. 


STEROGRAPHIC  HORIZON  PROJECTION  ON  SPHERICAL  EARTH  (IC  = 14) 

In  the  sterographic  projection,  it  is  assumed  the  earth  is  projected  on  a 
plane  tangent  to  the  globe  as  viewed  from  a point  on  the  earth  surface  opposed 
to  the  point  of  contact  with  the  plane  and  the  earth.  In  this  sterographic 
horizon  projection  the  point  of  contact  is  associated  with  the  latitude  and 
longitude  Lq,  Xq.  If  JC=3  these  are  given  by  FLATC  and  FLONC,  if  JC=2  by 
40°  and  90°.  The  equations  are  given  by  Thomas®.  If  L is  a latitude  and  X 
longitude  from  the  center  of  projection 


X = a sin  X cos  L/(l  + sin  L sin  Lq  + cos  L cos  Lq  cos  x) 

Y * a (sin  L cos  Lq  - sin  Lq  cos  L cos  x)  / (1  + sin  L sin  Lq  + cos  L 
cos  Lq  cos  x) 

OUTPUT  FORMATS 

The  outputs  for  KC  = 1 are  directly  the  output  for  each  type  of  projection 
in  statute  miles  centered  at  FLATP,  FLONP.  If  X',  Y'  are  the  final  subroutine 
outputs  and  X,Y  the  results  of  the  projection  calculation,  then  for  KC  = 1 
X'  = X and  Y'  = Y.  For  other  values  of  KC  the  following  transformations  are 
performed. 

(KC  * 2)Grid  coordinate  in  statute  miles 
X'  - (X  + XGDST)/50 
Y'  • (Y  + YGDST)/50 


Thomas,  Paul  D.,  "Conformal  Projection  in  .Geodesy  an<l  Cartography",  U.  S. 
Dept,  of  Commerce,  Coast  and  Geodetic  Survey,  Special  Publication  sr251, 

U.  S.  Government  Printing  Office,  Washington,  D.C.,  1952,  p.  15. 


for 

JC  = 2 X6DST  = 2000,  YGDST  = 1000 

' OC  = 3 XGDST  = XGDSTR,  YGDST  = YGDSTR 

(KC  = 3)Map  coordinates  in  inches 
■ X'  « X • SMIJN  • SCLEW  - XMPOF 

Y'  = Y • SMIIN  • SCLNS  - YMPOF 

vfhere  , 

SMIIN  = 63360  inches/statute  mile 
SCLEW  = STRCHA/SCALE 
SCLNS  = STRCHU/SCALE 
SCALE  is  input  in  block  common  /CARTOG/ 
if  JC  = 2 XMPOF  = Yf^POF  = 0, 

• STRCHA  = STRCHU  » 1. 
if  JC  = 3 XMPOF  = WPOFR, 

XMPOF  = YMPOFR, 

STRCHA  = STCHAR, 

STRCHU  = STCHUR, 

(KC  = 4)Rectangular  coordinates  in  nautical  miles 
X'  = SMINM  • X 
Y'  » SMINM  • Y 
where 

SMINM  » 0.867383901158  Nautical  miles/Statute  mile 
• (KC  = 5)Grid  coordinates  in  nautical  miles 
X'  » (X  + XGDST)  SMINM/60 
Y'  = (Y  + YGDST)  SMINM/60 

• 

n-113 


•f 


where 


XGDST,  YGUST  is  the  same  as  when  KC  = 2 
(KC  = 6)0ffset  map  center  - output  in  inches. 

X'  = (X  - XCENT)  • SMI IN  • SCLEW  - XMPOF 

r = (Y  - YCENT)  • SMI IN  * SCLNS  - YMPOF 
where 

SCLEW,  SCLNS,  XMPOF,  YMPOF  are  as  defined  for  KC  = 3 

XCENT,  YCENT  are  obtained  by  a preliminary  call  calculating  a data 
point  using  the  value  CRMPLA  for  FLATP,  and  CRMPLO  for  FLONP.  This  puts 
the  center  of  the  map  at  this  latitude  and  longitude. 
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AN 

X 

Y 

c 

SEVERAL 

10 

c 
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TC 

a 

I 

c 
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IC 

a 
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IC 

a 
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c 

• • • 

IC 

a 
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c 

• • • 

IC 

a 
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IS 

c 

• • • 

IC 

a 

6 

c 

• • • 

IC 

a 

7 

c 

• • • 

IC 

a 

8 

c 

• • • 

IC 

a 

9 

c 

• • • 

IC 

a 

10 

20 

c 

« • • 

IC 

a 

II 

' 

c 

« « • 

IC 

a 

12 

c 

• • • 

IC 

a 

13 

c 

• • • 

IC 

a 

14 

subroutine  projects  from  latitude  longitude  coordinates  to 

SET  OF  rectangular  COORDINATES 

ions,controlleo  by  parameter  ic  are  — 
flat  spherical  earth 
flat  ellipsoidal  earth 
rotate  coordinate  system  before  projection 
AS  3 but  also  stretch  to  equalize  errors 

ALBERS  EQUAL  AREA  PROJECTION  ON  ELLIPSOIOAL  EARTH 
ALBERS  equal  area  PROJECTION  ON  SPHERICAL  EARTH 
MERCATOR  projection  ON  ELLIPSOIDAL  EARTH 
MERCATOR  projection  ON  SP>lERICAL  EARTH 

LAHrERT  conformal  conic  projection,  ellipsoidal  earth 

TRANSVERSE  MERCATOR  PROJECTION  ON  ELLIPSOIOAL  EARTH 
universal  transverse  mercator  Projection 
POLyCONIC  projection  On  ellipsoidal  earth 
TRAPAZOIOAL  PROJECTION  ON  SPHERICAL  EARTH 
STEROORAPHIC  horizon  projection  on  SPHERICAL  EARTH 


: 1 


THE  parameter  JC  controls  INITIALIZATION,  TYPICALLY  JC  • I 
FINOS  COORDINATES  FOR  A POINTt  JC  • p INTITIATES  WITH  STANDARD 
parameters*  JC  a 3 INITIATES  WITH  USER  SUPPLIED  PARAMETERS, 


the  parameter  kc  controlls  output  type  typically  the  output  is 


« . « 
« • . 


• • . 
« • • 
. . . 
« • , 


KC  a 
KC  • 
KC  ■ 
KC  a 
KC  ■ 
KC  a 


1 . 

2 - 

3 - 

4 ■ 

5 - 
A - 


. OUTPUT  IN  rectangular  COORDINATES  IN  STATUTE  MILES 

- OUTPUT  IN  grid  coordinates  IN  STATUTE  MILES 

- OUTPUT  IN  INCHES  FOR  DRAWING  MAPS 

- OUTPUT  IN  rectangular  COORDINATES  IN  NAUTICAL  MILES 

- OUTPUT  IN  GRID  COORDINATES  IN  NAUTICAL  MILES 

- OUTPUT  FOR  MAPS  OF  ENLARGED  SCALE  LOCATED  AWAy  FROM 

THE  COOROINATE  system  CENTER 


OHEMSION  CLA(5)  *FLT«5> 

C')MMnN/CARTOG/IC*JC,KC,FL ATP, FL0NP,Y,X, mho, THETA,  FLATc.FLOnC, 
ISC  \LE,  STCHUR,STCHAR,HILATR,R0LATH.X6DSrR,YG0STR,X'»P0FR,YMP0FR, 
2 CrMpLA,CrMpLq 


DATA  T0MA0,RF.TIN,SMiIN,SMInm/  0.0174532925199,  39.37,  63360., 
I O.fl6738390lI58/ 

DATA  RETSM/I609.3472I86Q4  / 

data  CLARK,ECC,ECCSO,StMIO,AIMES,ECCRtO,ECCH/ 

1 3R63.2257B8636,  8.227I35A?578E-2,  6.768658002I9IE-3, 

2 69.17133901148,3936,1044794,  6. 8I47849509E-3, 4. 1 135927126^-2/ 
data  XK0,SINS/  0,9996  ,4,8a8I 3681  IE-6/ 

data  HIL4T0,R0L4T0,CENL0D,CENLAD  /45. 5, 29.5 , 96, ,40 ./ 
data  HILALO,ROLaLO,CENLLD,CELLOO/  4;., 33. ,39. ,96*/ 

OAtA  FLAyM,  FLOnM/40, ,90./ 
data  CTMLAT,CTMlON/  39. ,90./ 
data  FLATPY.FLOnPY/  40. ,90./ 
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DATA  CLTMER.CLNhER/  0..90./ 

DATA  X60STD.r<50STO,XMPOFDtYMPOFD/2000..1000..30..1S,/ 
OATA  OTRCHU.OTRCHA/1.,1./ 

OaTa  CLA  (1)  tCLA(2)  .cLa<3)  »CLa  (4)  tCLAis)/ 
16378?06.A,637R249. 145,6378380., 6377275. 3452. 6377397. 155/ 
DATA  FLT(1).FLT(2),  FLT<3»,  FLT(4),  FLT(5)/ 

1 294.978698.  293.465>  297.,  300.8017,299.152813/ 


IF  (JC  . ED.  1)  60  TO  200 


initialize  for  all  code  UP  to  statement  200 


IF  (IC  .6T.  2»  60  TO  50 
PROJECT  LOCALLY  UPON  A FLAT  EARTH 

IC  ■ 1 USE  SPHERICAL  flat  EARTH, IC  ■ 2 USE  ELLIPSOIOAL  EARTH 
FOR  STRETCH  FACTORS 

JC  « 1 COMPUTE  A POINT,  JC  ■ 2 INITIALIZE  HITH  PRESTOREO  OATA 
JC  ■ 3 initialize  HITH  OATa  IN  COMMON  SLOCK  /CARTOG/ 

IF  (IC  . E,,.!)  60  TO  13 

FLAT  ellipsoidal  EARTH 
SINLT  m SIN<FLATC4T0«A0> 

SINLTS  ■ SINLT*SlNLT 
COSLT  • SQRT(1.-SInlTS> 

TMp  a SqRT(1.-ECCS(J*SINLTS> 

FCTN  a(l.  - ECCSQ)/(TMP*TMP4TMP) 

FCTE  a C03LT/TMP 
60  TO  i4 
CONTINUE 

PLAT  spherical  earth 
PCTN  a 1. 

PCTE  a COS(PL*TC*TORAD) 

CONTINUE 

CONNO  a FCrN*STMlO 

C0NE4  a FCTP4STMI0 

60  TO  16  V 

Continue 

Ir(IC  ,6T.  4)  GO  TO  20 


' fi  105 


V ..O 


pOTUE  COOpOINAtE  system  so  centerfo  at  pt  lo 
THEN  USE  flat  earth  OR  FLAT  STRETCHEO  EARTH 
IF(JC  .EO.  3>  GO  TO  52 

JC  a 2 USE  STaNOARO  CENTER  AT  LAT  a 4O,  LONG  ■ 90 
SINLo  a SIN(FL*TN4ToR*0) 

COSLO  a C0S(FLATM*T0RA0> 

PLONIIS  a FLONM 

Flatus  a flatm 
GO  TO  16 

JC  ■ 3 USE  FLATc  flonc  as  center 
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CONTINUE 

SINLO  ■ SINIFLATC*TOR*0) 

COSUO  • COSIPLATC*ToR*0) 

FLONUS  ■ FLONC 
FU*TUS  a Fl«TC 
50  TO  l6 

20  CONTINUE 

IF  ( IC  .GT.  6)  60  TO  7o 


10 


IS 


o 


.5 


0 


nO 


c alters  equal  arfa  projection 

C ..  IC  a 5 — . alters  equal  area  projection  on  ellipsoidal  earth 
C ..r  IC  a 6 — - AL9ERS  equal  AREA  PROJECTION  ON  SPHERICAL  EARTH 

IF  (JC  .NE,  3)  GO  TO  31 

C JC  a 3 USER  MUST  SUPPLY  VALUES  FOR  STANDARD  PARALLELS  AND  CENTER 
c longitude  ANO  LaTITuOE 

HILAT  a HILATR 
ROL'T  a R0L*TR 
CENLON  a FLONC 
CENLaT  a FLATC 
GO  TO  38 

31  CONTINUE 

HILAT  a HILATO 
ROLAT  a ROLATO 
CENLON  a CENLOO 

CENLAT  a CFNLAO 

38  CONTINUE 

ASQ  a CLARK*CLARK 
COSHI  a C0S(HILaT*T0PADI 
COSHIS  a COSHIacOSHI 
COSLO  a COS<ROLaT*TO«AD) 

COSLOS  a COSLO*COSLO 

SINHIS  » I,  - COSHIS 

SINLOS  a 1.  - COSt-OS 

SINHI  a SORTISINHIS) 

SINLO  a SQRTISINLOS) 

IF<  IC  .EO.  6)  GO  TO  21 

C ELLloSOIOAL  EARTH  CLARK  STo  SPHEROID  OF  186A 
Cl  a 0.6666666G667«eCCSO 
C?  a 0.0*ECCSQ*ECCSO 
C3  a 0,5TlA2857aECCSQ»ECCSo»ECCSlJ 
OIV  , 1,  . Cl  ♦ C2  ♦ C3 

SI  a SINHI 
SIS  a SINHIS 
ISW  a 1 

32  CONTINUE 

SB  a SI*(1,  ♦ C1»SIS  ♦ C2*SIS«SIS  ♦ C3«SIS«S1S*S1S) /OIV 
GO  TO  ( 34.3;) tISw 
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|l7o 

'1 

"^175 

1 

J 

1180 


3A  CONTINUE  * 

SInBhI  ■ SB 
SI  ■ SINLO 
SIS  m SINLOS 
ISN  ■ 2 
GO  TO  32 
35  CONTINUE 

SINBUO  s SB 

4SSCS  • l./Ul.  - CCCS0)*01V) 

XN  ■ O.S*ASSCS«(COSLOS/(1.  - ECCS0*SINL0S)  -COSHIS/n»-  ECCSO* 
1 sINHIs) )/(SIN8HI  - SINPLO) 

RHOHIS  « 4SQ*CQSHIS/(XN*XN#(1.-  ECCS0*SINHIS) > 

Fact  ■ 2.«ASQ/usscs*XM) 

GO  to  39 


i 

-j  185 


■ 

I 

I 

1 

I 


c spherical  earth 

21  continue 

XN  ■ 0,5»(COSLOS  - COSHlS)/(SlNHI  - SINLO) 
RHOHIS  a AS0»C0SHIS/(XN»XN) 

FACT  ■ 2.*ASq/XN 
SINRhI  a SINHI 
39  CONTINUE 

FLTPST  a FLATP 
FLATP  a CENLAT 
GO  To  220 
41  CONTINUE 

FLATp  a FLTPST 
RMOC  a RHO 
GO  TO  le 
70  CONTINUE 

IF  ( IC.GT.  8)  GO  TO  120 


! 200 


I 2n5 

i 

I 

I 

I 21n 


■215 


o 

22n 


c • • • 
c • • • 

c 


12S 


12S 


131 


IC  a 7 — MERCATOR  PROJECTION  ON  ELLIPSOIOAL  EARTH 

ic  a fl  — mfrcator  projection  on  spherical  earth 
initialize  for  center  point  on  map 

FLONST  a FLONP 
FLATST  a FLATP 

IF(JC  ,NE.  3)  Go  TO  125 

FLONP  a FloNC 

FLATP  a FLATC 

GO  TO  126 

CONTINUE 

FLATP  a CLTMER 

FLONP  a CLNMER 

CONTINUE 

XO  a 0. 

YO  a 0, 

GO  TO  230 
CONTINUE 
XO  a X 
YO  a Y 

FLATP  a FLATS! 

FLONP  a FLONST 
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GO  TO  16 

120  continue 

IP(IC  .07.  0)  So  TO  130 


/I 


•23n 

I 

I 


235 


2A0 


t 

J 

1 


! 


1250 


255 


2N.I 


C LAMBERT  conformal  CONIC  NiTH  TWO  STANDARD  PARRALLELS 
C ASSUME  ellipsoidal  EARTM 
IF  <JC  .NE.3)  GO  TO  121 
HILTA  a HILATP 
POlTA  a R0L*TP 
CENLA  a FLATC 
CEnLN  a FLONC 
GO  TO  122 

121  continue 

HILTA  a MILALO 
POLTA  a ROLALO 
CEMLA  a CENLLO 
CE'JLN  a CELLOO 

122  continue 

SINLO  a SIN(R0LT**T0RA0) 

C03L0  a COS(ROLTA«TORAO) 

SlNHI  a SIN«  hIlTA*TORA0) 

COSHI  a COS(HILtA*TOR*0) 

RTHIa  SORTd.  - ECCSO«SINHl*SlNHI ) 
pTLOa  sqRT«1.  - ECCsg*sINLO*sINLO) 

FACLA  a RTLO*COSHI/ lRTHI«  COSLO) 

PLO  a I.S707R632  - ROLTA*ToRAO 
pHl  a l.5707<»632  - hILTA*TOrAO 
COSPHI  a SINHI 
COSPLO  ■ SINLO 

RRHI  ■ ((1.  ♦ EcC*C0SphI)/(  1.-  ECC*COSMHI) )••(  ECC/2.) 

PRLO  a (d.  * ECC«COSPL0)/(  1.-  ECC*COSPLO) ) •* ( ECC/2.) 

T?HI  ■ TAN  (PHl/2.)*8nHl 

TZLO  a TAN(PL0/2.)*8RL0 

XL  a ALOG10«faClA)/aLOG10ITZMI/T2LO) 

XK  a CLARK*CoSHl/(RTHI*XL«TZHl*axL) 

C initialize  fop  center  point  on  map 

FI.ONST  a FLONP 
FL4TST  a FLATP 


I 

« 

I 

n 


265 


i 

I 270 


FLONP  a CENLN 
FLATP  a CENLA 
RHOO  a q. 

GO  TO 

12*  CONTINUE 

RHOO  a RHO 
FLATP  a FLATST 
FLONP  a FLONST 
GO  TO  l6 
130  CONTINUE 

IF(  IC.GT.  10)  GO  TO  150 


} O C ...  IC  a 10  — TRANSVERSE  MERCATOR  PROJECTION  CENTERED  ON  FLONC 

>27r  IFUC  .NE.3)  GO  TO  l32 
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IC  • n — UNIvERSAC  transverse  MERCATOR  projection 

USE  CLARK  1866  FOR  NORTH  AMERICA  AND  PHILLlPINE  ISUANOSt 
CLARK  1S60  FOR  AFRICA  SOUTH  OF  THE  SAHARAt  EVEREST  FOR  INOlAt 
PAKIsTANtAFGHANISTANtANO  INOOCHIMA,  BESSEL  FOR  INOONCSt A* JAPAN* 
KOREA*  AND  MANCHURIA*  AND  INTERNATIONAL  ELSEWHERE. 

THE  value  of  HIlATR  IS  USEo  to  define  the  SHEROIO  in  THE 
FOLLOWING  INCREASING  ORDER, 

CLARK  IB66*  CLARK  l88o*  INTEHNATIONAL * EVEREST*  AND 

bessfl  spheroids 

CLEApLv  FOr  the  O.S*  set  HRAtr  ■ 1, 

IFtHiLATR  ,LT,  0.  ,0R,  HILATR  ,GT,  5.0001)  STOP  A36 
INI)  a HILATR  ♦ o’OOOOOOl 
IFtHILATR  .EO,  o»>  I'^O  ■ 1 
CL4RKU  a CL«(INO) 

FLTMI  a ,,/FLT(IN0) 

ECCSU  a ^LTNU*(p,  - FUTNU) 

ECCPS  ■ ECCSU/(I.  - ECCSU) 

ECCPF  a ECCPS*ECCPS 
SINSS  a 3INS*SInS 
SINSC  ■ $IMS*SInSS 
SINSF  a SINSS*SINSS 
SIMSFT  a SIN5F*slNS 
SINSS*  ■ SINSS*RlNSF 

ZONE  NUMBERING  STARTS  WITH  1 AT  17*  TO  180  W*  2 AT  17a  TO  l68  W 
TO  60  AT  17*  TO  I80E.  GrIOC  IN  THE  CENtEr  OF  THE  ZONES. 

ZONE  NUMBER  IS  SPECIFIED  BY  THE  VALUE  OF  ROLATR 
IN  CONUS  FOR  given  ZONES*  MIN  LONGITUDE  IS  — 

Z19-66*  Z18-72*  Zl7  -78»Zl6  ” BA*  ZI5-  »0*  ZIA  - ZI3  -102* 
712  - 108.  Zll  llA*  ZlO  - 120.  tMUS  FOR  Ex  ZONE  16  COVFRS  BA 
TO  9"  DEGREES  LONGITUDE. 

IF(BnLATR  .LT.  0.  .OR.  ROLATR  ,GT.  60.)  STOP  A37 
IF<ROLATR  .NE,  0.)  60  TO  ISA 
IF(FLonC  .LT,  0.)Go  To  155 
ITMP  a FLONC/6. 


i 
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TMP  a ITMP 
POLATR  • 30.  - TMP 
On  To  154 

155  CONTINUE 

ITMP  a A6S(FL0NC)/6. 

TMP  a ITHP 
ROLATR  • 31.  ♦ TMP 
l54  continue 

INZN  a ROLATR  * O.OOOOOOl 
ZONEn  a INZN 

IFIZONEN  .GT.  3q.)  go  TO  156 
GRIOC  « i80.  - (ZONEN  - i.)«A.  - 3. 
GO  TO  157 

156  Continue 

GRIOC  « -!.•<  (ZONEN  - 31>)*6>  • 3.) 

1st  continue 

Gq  To  16 
170  CONTINUE 

IF  (IC  .GT.  lai  GO  TO  IflO 


^ P 

,385 


C ...  IC  a 12  — POLyCONIC  PROJECTION  ON  ELLIPSOIDAL  EARTH 
FLATPS  a FLATP 
FLONPS  a FLONP 
IFUC  .NE.3)  GO  TO  iTg 
CENLA  a FLATC 
CENLO  a FLONC 
GO  TO  l73 

172  CONTINUE 
CEnLA  a FLATPY 
CENLO  a FLONPY 

173  CONTINUE 
FLATP  a CENLA 
FLONP  a CENLO 
GO  To  2^0 

171  CONTINUE 

FLONP  a FLONPS 
FLATP  a FLATPS 
YPC  a Y 
GO  TO  16 

180  continue 

IF(IC  .GT.  131  GO  TO  ion 

C ...  IC  a 13  — TRAPAZOIOAL  PROJECTION  ON  SPHERICAL  EARTH 
SINLC  a SIN<FLATC»TO«AniaSTMID 
COSLC  a COS<FLATC*ToRA0)aSTMI0 
GO  TO  j6 

190  CONTINUE 

C .«.  IC  a u — STER06RAPHIC  HORIZON  PROJECTION  ON  SPHERICAL  EARTH 
IF  <JC  .NE.  31  GO  TO  192 
CENLA  a FLATC 

' CENLO  a FLONC 
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CO  TO  193 
CONTINUE 
CENLa  ■ FLATM 
CENLO  ■ FLONM 
CONTINUE 

SINLO  ■ SIN{CFNLA*T0RADJ 
COSLO  ■ cos«cenla*toRad» 
TCLRK  ■ 2.«CLARk 


THIS  SECTION  DOES  INITIALIZATION  OP  THE  FINAL  PRINTOUT 
CONTINUE 

IF(KC  .NE.  11  60  TO  12 
OUTPUT  IN  statute  miles 
RETURN 
CONTINUE 

IF  «kC  ,Gt;2»  60  TO  17 
KC  a 2 

IF  UC  , EQ.3»  60  TO  2? 

X60ST  a X60ST0 
Y60ST  a Y60STO 
60  TO  23 
CONTINUE 
X60ST  a XCnSTR 
Y6DST  a Y60STR 

continue 

RETURN 

CONTINUE 

IF  «KC  .GT.3)  GO  TO  18 

KC  a 3 

IF  UC  . E0,3»  GO  TO  2* 

XMPOF  a XMPOFn 
YMPOF  a YMPOFO 
STPChU  a OTPCHU 
STPChA  a OTRCHA 
GO  TO  ?5 

continue 

XpPOf  a XMPOFR 
YMPOF  a YMPOFP 
STRChA  ■ STCHAR 
STHCHU  a STCHUR 
CONTINUE 

SCLNS  a STRCMU/SCALE 
SCLEu  a STRCHA/sCALE 
RETURN 

NO  INITIALIZATION  NEEDED  FOR  KC  a * 

CONTINUE 

IF  (KC  .GT.51  60  TO  19 
KC  a 5 

IF  (JC  . EO.3)  60  TO  26 
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VGnST  ■ YGnSTO 
XGnST  ■ XGOSTO 
GO  TO 
CONTINUE 
YGOST  ■ YGOSTP 
XGOST  • XGOSTR 
CONTINUE 
RETURN 
CONTINUE 
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KC  a 6 

IF  <jC  . E0.3I  60  TO  26 
XMPOF  a XMPOFO 
Y«POF  a YMPOFO 
STPCnA  a OTRCHA 
STRChU  a DTRCHU 
GO  TO  29 

continue 

STRChU  a STCHUR 
STRCHA  a STCH4R 
XMPOF  a XMPOFR 
YMPOF  a YMPOFR 

continue 

SCLNS  a STRCHU/SCALE 
SCLEW  a STRCHA/sCACE 
FLATST  a FtATP 
FLONST  a FtONP 
JCST  a JC 
JC  a 1 
KC6SW  a 2 

Plato  a crmpla 

FLONP  a CRMPLO 
GO  To  2Q0 

DO  PRELIMINARY  RUNThROUGH  TO  GET  XCENT.YCENT 

continue 

KC6SW  a I 
PLATP  a FLATST 
PLONP  a FLONST 
JC  a JCST 
/CENT  a X 
YCENT  a Y 
RETURN 


200  CONTINUE 
C GET  A POINT 

IF(IC  .GT,  2)  GO  TO  210 


lap 


FLAT  Earth 

V a rONNO*(FLATP  - PLATO 
X a C0nEA#(FL0NC  - FLONP) 
IF(KC  ,GT,n  GO  TO  3OO 
return 
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210  CONTINUE 

IFdC  .GT.  ♦)  60  TO  220 
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..  .1 

" 505 


5lO 


5I5 


520 

i o 

. 5?5 


C ROTATE  COORDINATE  SYSTEM  So  CENTERED  AT  PT  LO 

c ...  ic  ■ 3 — rotate  coordinate  system  before  projection 

C ...  IC  ■ 4 — AS  3 BUT  also  STRETCH  TO  EOUALIZE  ERRORS 
SINLX  ■ SIN(TORAD*FlATP) 

COSLXS  ■ 1.  - SINLX*SINLX 
CoSLX  ■ SQRT<Cqs>-Xs) 

DANG  ■ T0RAD*(FL0NUS  - FLOnP) 

SINDa  ■ SIN(DANG) 

COSOA  ■ SQRT(^.  - SINDA«SINDA) 

SINLXP  ■ COSLO*SINLX  - SINL0«C0SLX«C0SDA 
XLP  ■ ASIN(SINLXP) 

COsLXp  ■ SqRT(1.  - sINLXp*sINLXp» 

SINLaP  ■ SlNOA«COSLX/COSLXP 
ALP  a aSIN(SINLaP) 

Y ■ XLP*CLARK 
X ■ aLP4COSLXP*CLARK 
IF(IC  .NE.  4)  GO  TO  211 

c stretch  ew  coordinate  to  Spread  distance  calculation  error 

c betwhen  latitude  distortion  of  ew  distance  and  shape  distortion. 

DFLT  ■ ABSIFLATP  - FLATUS) 4TORAD 
X a X4(l,  - 0FLT«0FlT/4.) 

211  continue 

IF(KC  .GT.l)  60  TO  300 
RETURN 

220  CONTINUE 

IF(IC  .GT.  6)  GO  TO  230 


530 


54C 


j 


545 


! 


c find  coordinates  for  a single  point  for  alRErs  Equal  area 

SIML  a SIN,FLATPaTORAD> 

IF(  IC  .NE.  N)  eo  TO  3T 

c spmepical  earth 

SINHF  a SINL 
GO  TO  33 
37  CONTINUE 

C ellipsoidal  EARTH 

SINLS  a SINL*SINL 

SINHF  bSINL«(1.  ♦SInLS*(C1*SINLS*IC2  * SINLS«C3) ) )/DTV 
33  continue 

RhOS  a RhOHIS  ♦ FACT«ISINBhI-  SINBF) 

RHO  a SORT (RHOS) 

IF(jr  .NE.  1)  Go  TO  4j 

THETa  a XN«<CENL0N  - FL0NP)*T0RAD 

SINTH  a SIN(THETA) 

COSTHS  a 1.-  SINTH«SINTH 
COSTh  a SORT(COSTHS) 

X a PHO«SlUTH 

V a RHOC  - RHo#COSTH 

IF(KC  .GT.l)  60  TO  3OO 
return 
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o 

555 


S60 


5hS 


^7n 


?30  CONTINUE 

IF  (tC  .GT,  fl)  GO  TO  240 


C GET  A POINT  FOR  MERCATOR  PROJECTION 
COLAT  ■ 1.57079632  - FL*TP*TORAO 
IF(IC  .EQ.B)  Go  to  232 
COsPE  ■ ECC*COs (COLAT) 

AOJ  a ((1.  ♦ C0SPE)/<I.  - COSPE) »»»ECCH 
TAN2H  a TAn(0.5*C0LAT>  »A0j 
Go  To  233 

232  CONTINUE 

TANZM  a TAN(0.5*COLaT) 

233  CONTINUE 

FLAN  ■ TOpAO«(F(.ONC  - FLONP) 

X a CLARK«FLAM  « XO 
Y a CLARK*4L0G(I./TANZH)  -YO 
IF(  JC  .NE.  1)  GO  TO  131 
IF(KC  .6T.1)  GO  TO  300 
RETURN 

2*0  CONTINUE 

IFdC.GT.9)  60  TO  250 


575 


5B0 


565 


5Yf 


C GET  ^ POINT  FOR  LAMBERT  COnFORMAL  CONIC  PROJECTION 
COLAT  a 1.57<*79632  - FLATP*TORAO 
COSPF  a ECC«C0S(C0LAT) 

AOJ  a (<1.  ♦ COSPE)/ <1.  - C0SPE))»*ECCH 

TAMZH  a TAN(0.5*COLAT)  *A0J 

RHO  a XK*TANZh<*XL 

FLA“  a TOPAn*(CENLN  - FLONP) 

SIfiL  a SIN(XL*F(.AM) 

COSL  a SOPTn,_SINL*SINL) 

X * rH„  *sINL 
Y a PHOO  - RHO*COSL 
1F(  JC.NE.  1)  Go  TO  12^ 

IF(Kr  .GT.l)  GO  TO  300 
RETURN 

250  CONTINUE 

IF  (IC  .GT.  10)  GO  TO  270 


I 


: 

I 

f 


595 

c 

GET  A POINT  FOR  TRANSVERSE  MERCATOR  PROJECTION 
OIFLN  » (CENLO  - FLONP) aTORAO 
DIFLNS  a DIFLN*oIFLN 
SINLa  a SIN(FLATP«TORAO> 

SINLaS  a SINLA*S1NLA 

. nOO 

COSLaS  a 1.  - SINLAS 
CoSLA  a SQPT(CgsLAS> 
TANLaS  a SINLAS/COSLAS 

ETAS  a ECCPTO*CoSLAS 

XN  a CLARK/SORTd,  - ECCS(J»SINLAS) 

pHI  a FLATp*TORAO 
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60  TO  291 

continue 

X ■ XN*0IFlN*C0SLA*(1,  ♦ COSLAS*DIFLNS*( (I,-  TANLAS  ♦ CTAS)/6, 
1 ♦ 0IF|.NS*C0SI,AS*(5.  - 18.*TANLAS  * TAnLAS*TANLAS) /I20 . ) ) 

V • CLAflK*suM  ♦ XN*(DIFLNs*sINLA*COsLA*(0.5  * OIFLNs*COsLAs* 

1 (5.  - TANLAS) /24.)) 

IF  (JC  .NE.  1)  60  TO  I34 

V ■ V « vcnt 

IF(KC  ,6T.U  60  TO  300 

return 

CONTINUE 

IF  (IC  .6T.  11)  60  TO  290 


GET  A POINT  FOR  UNIVERSAL  TRANSVERSE  MERCATOR  PROJECTION 
niFLM  > (GRIOC  « FLONP)*3600. 

REPRFSENT  eastern  HEMISPHERE  By  NEGATIVE  LONGITUDE 
— \IF(FlOnP  .LT.  O.)  OIFLN  « FLONP  - GRIOC 
SINL4  ■ SIn(ABS«FLATP>»TORAD) 

SINLAS  ■ SINLA*sINLA 
COsLAS  ■ 1.  - SiNtAs 
COSLA  ■ SOPTJCOSLAS) 

COSLAC  a COSLASaCOSL* 

COSLAF  a dOSLASaCOSLPS 
COSLAT  a COSLASaCOSLAC 
TANLAS  a sInI-*S/CoSLAs 
TANLAF  a TANLASaTANLAS 
XNU  a CLARXU/SORTd,-  ECCSuaSiNLAS) 

P a O.OOOlaABsIOlFLN) 

PS  a pap 

PC  a PSap 

PF  a PsaPS 

PFT  a PSaPC 

PSX  a DCaPr 

PHI  a FLATP*T0RA0 

alpha  a SIMLAaCoSLA/2. 

SNPP  a 1, 

FJ  a 1.S*ECCSIJ 
TJ  a O.saPKI  - ALPHA 
SUM  a pHl  ♦ Fjayj 
PO  272  J a 2,4 
XJ  a J 

Fj  a FjaECCSUaJxJ  » 0.5) /*J 
SnPR  a SNPPaSINLAS 

TJ  a -SNPRaALPHA/XJ  ♦ «XJ  - 0.5)aTJ/XJ 
SUM  a SUM  ♦ FjayJ 
2 CONTINUE 

SU“  a SUMa<i.  - ECCSU) 

FCTRl  a CLARK«*SUMaxKO 

FCTP2  a O.SEBaXKOaXNuasINLAaCOsLAasINss 

FCTRl  a XK0ai.El6aSINSFaSlNLAac0SLAC*(5.  - TANLAS  ♦ 9.aECCPSa 
1 COSLAS  ♦ 4.aECCPP»C0SLAF)aXNU/?4. 

FCTR*  a xNlI  ajINsaxKOai.E^aCOsLA 

FCTRs  a SINSC'XNUaxKOa  1 .E I2*C0SLAC* ( 1 . - TANLAS  ♦ ECCPSaCOSLAS) 
1 /6 . 
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A6  a PsxaSINSSXaXNU*SINtA*COBLATa(61 . - Sa.*TANLAS  * TANLAF 
I ♦ 270.«ECCPS*COSLAS  - 330.*ECCPS»SINLAS) *XKO»l .E24/720, 

H5  a PFTaSIN«;FTaXNU*C0SL*Ta(5,  - iB.aTANLAS  • TAnLAF  ♦ 

1 U.aECCPSaCOSLAS  - 58.*ECCPS*SINLAS) •XKO#l .E20/12O . 

XN  a FCTrI  ♦ pS*PCTr2  ♦ pF*FCTp3  ♦ A6 
XEP  a FCTR4*P  ♦ FCTR5*PC  ♦ 85 
IF(FlATP  .LT.O.I  XN  a 10000000.  - XN 
IF(0IFLN  .LT.O.  » GO  TO  275 
XE  a XEP  * 50OOOO. 

60  TO  276 

275  CONTINUE 

XE  a SOOOOO.  - XEP 

276  CONTINUE 

X a XE/HETSN 

Y a XN/RETSM 

RHO  a XN 
theta  a XE' 

IF(KC  .GT.iJ  60  TO  300 
RETURN 

290  CONTINUE 

IF(Ic.  GT.  121  GO  TO  295 

C GET  A POINT  FOR  POLYCONTC  PROJECTION 
PHI  a FLATR4T0RA0 
SINLa  a SINIPHI) 

SINLAS  a STNLA4SINLA 
CUSLa  a S0RT<1.  • SINLAS) 

ROOT  a SORTU.  - ECCSo*SlNLAs» 

RHO  a CLARK4COSLA/«SlNLAaROOTI 
THETa  a (CENLO  - FLONP)aTORAD*SlNLA 

291  CqnTTnUE 

alpha  a SINLA*C0SLA,2, 

SNPU  a j. 

FJ  a 1.5*ECCS0 
TJ  a O.aaPHI  - ALPHA 
SU«  a pH  I * FJ*tJ 
00  292  J a 2.4 
XJ  a J 

Fj  a FjaECCSO*(XJ  ♦ 0.5|/X>' 

SNRR  a SNPPaSINLAS 

TJ  a -SmPR«ALpHA/XJ  ♦ (XJ  - 0.5I*TJ/XJ 
SUH  a SUH  ♦ FJ#TJ 

292  CONTINUE 

SUM  a sUM*n.  - ECCSO* 

IF(IC.  E«.  miGO  TO  251 
SS  a A,HES  aSUM  ♦ RHO 
SINTH  a SIN(THEtA) 

COSTH  a SQRT<i,-SINTH4sINTH) 

X a RHO  4SINTH 

Y a sS  - RHOaCOSTH 
IF(JC  .NE.  1)  GO  TO  171 

Y a Y - YPC 

IF(KC  .GT.il  GO  TO  300 
RETURN 

295  continue 
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IF(1C  .6T.  13)  GO  TO  29« 


c GET  A point  for  trapazoioal  projection 

OFLT  ■ FLATP  - FLATC 

X «(FL0NC  - FLONP)«(COSLC  - DFLT«T0RAD*SINLC) 

Y ■ stmio*oflt 

IFIKC  .GT.l)  GO  TO  300 
PETUpN 

?<)8  CONTINUE 


73C 


73S 


74C 

t 

i 


7cn 


76r 


76? 


C GET  A POtNT  FOR  STER06RAPHIC  HORIZON  PROJECTION 
SIMLA  a SIN(FLATP«T0RA0) 

COSLa  a SORTd.  - S1NLA«SINLA) 

FLAM  a (CENLO  - FLONPlajOpAD 
SINLON  a SINJFLAM) 

COSLON  a SORTtl,  - SINLON) 

90t  a 1.  ♦ sINLA«s1NL0  * COsL A*COsLO«COsLON 
X a TCLHK*SINLON«COSLA/POT 

Y a TCLRK«(S1NLa«C0SL0  - SINLO«COSLA»COSLON)/BOT 

IF  (KC  .GT.  1)  GO  TO  300 

return 


300  CONTINUE 

C ADJUST  OUTPUT 

C start  assuming  X and  Y are  In  statute  miles  from  FLATC  AND  FLONC 
IF  (KC  .GT.  2)  GO  TO  310 

r GRID  COORDINATES  IN  STATUTE  MILES 

C KC  a 2 

X 8(X  ♦ XGDST)/S0. 

Y a ( Y ♦ YG0ST)/50. 
return 

3In  COHTlNltE 

IF(Kr  .GT.  3)  GO  TO  320 

c convert  to  INCHES  For  map  plotting 

C KC  a 3 

X a X*SMIIM*SCLFW  - XMPOF 

Y a Y*SMIIN*SCLNS  - YMPOF 

RETURN 

320  CONTINUE 

IF  (KC  .GT.  4)  GO  TO  330 

C RECTANGULAR  coordinates  IN  NAUTICAL  MILES 

C KC  a 4 

X a X aSMINM 

Y a y*SMINM 
RETURN 

330  CONTINUE 

IF(  KC.GT.5)  GO  TO  340 
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C GPU'  CnOPdll'CTEF  IN  nautical  NILES 

C KC  ■ s 

X =tX  ♦ XGOST 

V « (Y  ♦ YOnST  >*SMINN/(:,P. 

(■’ETI/pN 

340  COi'TtNLie 

0 PLOT  map  pop  a small  AREA  OFFSET  FROM  THE  CENTER  OF  THE 
c COcpoInatf  system. 

r kC  = 6 

GO  TO  (34l« \S> *kC6Sh 
->4l  rO'-TTNCE 

X a (X  - XOENT)  * SMIIM*«CLEm  - XMPOF 

Y a (Y  - VrENT)4SMIIN*SCLNS  - YMPOF 


prTliOM 
El'  " 

Ei’l  t'Y  wCULl’  H-.'/e  RFSIILTFO  in  mFTTER  optimization 
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SUBROUTINE  BIMOM  (DeCA: 
A General 


This  subroutine  receives  tract  data  described  by  rectangular 
coordinates  x^,  and  a value  P^,  and  computes  various  statistical 
moments  of  the  ensemble.  The  original  axis  are  translated  to  the 
center  of  gravity  of  the  value  and  thin  rotated  to  principle  axis,  i.e., 
th4st.axis/{maximize  and  minimize  the  variance  along  the  rotated  axis. 
About  these  axis  all  combinations  of  moments  through  the  fourth  are 
computed.  Gphol^oeA  calculations  of  moments  are  made  for  one  tract  and 
two  tract  cities . 

In  a second  pass  through  the  subroutine  the  direction  of  the 
principle  axis  as  well  as  moments  are  known.  This  enables  calculation 
of  several  additional  quantities.  The  option  allows  performing  n-sigma 
rejection  of  points,  calculating  the  range  along  the  principle  axis, 
calculating  the  statistic/?,  and  calculating  fractional  moments. 
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B Requirements  on  Calling  Program 

The  communication  with  the  external  word  through  the  block  common 

T eUTAT 

(I]‘i  ■Ij  GTAT)  . The  following  description  of  variables  indicates  which 
inpSt  variables  are  input  and  which  are  output  for  the  subroutine. 

JCTL  determines  type  of  subroutine  entry. 

JCTL  = 1 initialize  for  new  city 

2 add  a point  to  the  sums 

3 compute  moments 

4 add  a point  in  post  moment  pass  ^ 

5 finish  post  moment  pass  (requires  a previous  call  with  j 
JCTL  = requires  a previous  call  with  JCTL  = 3 to-— — ^ 
define  a,  etc.^ 

control  of  1 and  2 tract  area  calculation 
^^5l  = 0 - for  1 and  2 tract  cities  set  undefined 
variances  to  zero 

1 - for  1 and  2 tract  cities  determines 

variances  so  city  area  is  filled. 

KSIG  - Control  of n SIGMA  rejection 
KSIG  = 0 - No  action 

= 1 - Do  5 SIGMA  sections  of  outlying  points,  i.e., 

reject  points  if  the  distance  from  either  principal 
area  is  more  than  5 x th  corresponding  standard  deviaticn 

2 - as  K SIG  = 1 but  replace  5 by  SGOlj^R 

This  calculation  requires  a call  with  JCTL  = 1 to 
initialize  followed  by  calls  for  each  point  with  JCTL  = 4 
after  a call  with  JCTL  = 3. 

KFRAC  = 0 - No  action 

1 - Compute  fractional  mombents. 

This  computation  requires  calls  for  each  point  with 
JCTL  = 4 as  well  as  a call  with  JCTL  =5.  If  KSIG  = 0 
no  call  with  JCTL  = 1 is  needed  between  the  JCTL  = 3 
call  and  the  JCTL  = 4 calls. 
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KCHI  = 0 - No  action 

r\ 

1 - Compute  y,  statistic  for  calls  with  JCTL  = 4 

2 

Compute  normal  approximation  to  X with  JCTL  = 5. 

SGOUTR  - value  4f  n is  n-SIGMA  rejection  if  JCTL  = 4 and  kSJC-*2 
MU«r  U ^VAU.A«b&  ATCAbi.  «ATH  ^Ti.  »/ 

XX  - Input  value  of  X (East)  coordinate  for  JCTL  = 2 or  4 

YX  - Input  value  of  Y (north)  coordinate 

PI  - Input  value  (population)  associated  with  point 


OUTPUT 

IREJT  - used  in  n-SIG  rejection  JCTL  = 4 KSIG  4 0 

HinS 

0 last  pointAnot  rejected 

1 last  pointy  rejected 

IREJCT  - number  of  points  rejected 
2 

CHISQ  - X statistic  for  city  comparing  with  Gaussian  distributio 

■X. 

ZAPPX  -((Statistic  (distance  from  mean  n units  of  standard 

2 

deviation)  in  normal  approximation  to  X statistic 


SX...SYYYY  - Values  of  sums  df  input  values. (Alumber  of  X’s  in  power^tx 
is  raised  to,  number  of  Y’s  in  power  3 is  rejoGtcd  to, 
e.g. , SXXXY  = x^  y^P^ 

;=i 

Computed  in  a series  of  calls  with  JCTL=2.  If  these  sums 
are  externally  determined  as  well  as  NTRT  and  TV,  the 
subroutine  can  be  entered  directly  with  JCTL=3.  If  a 
second  pass  with  JCTL  = 4 is  made^ care  must  be  taken  that 
appropriate  variables  are  initialized. 


XB 

YB 

XX 

YY 


XY 


center  of  gravity  in  original  coordinate  system  in 
X direction. 

Center  of  Gravity  in  Original  Coordinate  System  in 
Y direction. 


1 NTRT 


Variance  in  X direction  = P ^ (x.  - x)  P. 

i=l 


Variance  in  Y direction 


NTRT 


Variance  in  XY  direction  = p ^ (>^,-  ■ x)  (y.  - y)P. 

i=l  ^ 


Standard  deviation  in  x direction 


SGXX 


SGYY 

SGXY 

TV 


- Standard  deviation  in  Y direction 


' Standard  deviation  in  XY  direction  = XY/  ,/SGXX  • SGYY 


Total  value  = p 

iJl  i 


NTRT  - 
SGRB-SGLLLL- 


TktoStP 


Number  of  data  points 

Moments  about  principle  axis. Convention  as  with  SXX. 
Normalize  by  dividing  by  same  powers  of  standard 
deviations  as  nximber  of  B’s  or  L*s. 


- For  two  tract  cities  separation  between  tracts. 


X* 


TWORAT  - For  two  tract  cities  rat#  of  value  of  tract  will  be  greatest 

WaitpMAtC. 

K (Eastmost)  to  value  of  the  other  tract. 

ALPHA  - Angle  from  the  of  the  principle  axis  (radian*) 


alpha!) 

FRB...FRLLLL 


BMAX  - 
BMIN  - 
SMAX  - 
SMIN  - 


rota^i*  clockwise.  To  avoid  ambiguity  0 < a < tt. 

Same  as  ALPHA  but  in  degress 

Tractional  moments  about  principle  axis.  Here  the  number 
if  B’s  in  L’s  is  the  reciprocal  of  the  power,  e.g., 

FRBBBL=  (x^  ^yj^)^/V(BGBB^  SGLL)^/"^ 

i = 1 

where  x'y'  are  coordinates  relative  to  the  principle  axis. 
Maximum  value  of  any  point  along  largest  principle  axis. 

Minimum  value  of  any  point  along  largest  principle  axis. 

Maximum  value  of  any  point  along  smallest  principle  axis. 

Minimum  value  of  any  point  along  smallest  principle  axis. 


This  subroutine  does  not  require  any  additional  routines 
except  standard  FORTRAN  ones. 
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I, 


^ •ffiiihiiriniii 


C ALGROITHM^ IMP  LEMENTED 


The  algorithm  implemented  will  be  derived  here  briefly.  The  algebra, 
while  simple,  is  somewaS^  tedious. to  obtain- tho  final -fopmnlafl 

First,  the  translation  of  axis  is  considered.  Let,  for  example, 

-I  V ri^/"  o 

SXXY  = i E x;f  y .P . 
f i=i  ^ 

Here,  and  in  similar  sums,  the  power  of  x.  in  the  sum  is  the  number  of 
x's  in  the  symbol  SXX¥,  and  the  power  y the  number  of  y's.  P is  the  total 
value 


and  is  the  number  of  points  considered.  For  convenience  the  Symbol 

-T 

E 

i=l 

will  simply  be  written  E.  We  also  call  x = SX  and  y = SY.'  "The" moments  which 
are  desired  are  in  a coodinate  system  centered  at  the  center  of  gravity  x, 
y,  of  the  original  coordinate  system  and  parallel  to  it.  Such  momemnts 
will  have  the  initial  letter  M.  Then 

MXX  = i S (x^  - X)^  Pi  = I Px^Pj 

+ J E P^  = SXX  - 2x^  + = SXX  - X 

In  similar  fashion 

MXY  = i E (x^  - X)  (y^  - y)P^ 

= SXY  - X y 
MYY  = i E (y^  - y)^  P^ 

= SYY  - y^ 

MXXX  = f S (^i  - 

= SXXX  - 3x  SXX  + 2 x^ 

MXXY  = i E (x^  - x)^  (y^  - y)  P^ 

= i SXXY  - 2XSXY  - y SXX  + 2x^y 
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MXYY  = ^ 2 


(x^  - X)  (y^  - yr 


MXXXX 


MXXXY 


= sm  - 3y  SYY  + 2y 

= 1 E (xj  - 

= SXXXX  - 4x  SXXX  + 6x^  SXX  - 3x^ 

= i 2 (x^  - x)^  (y.  - y) 

= SXXXY  - 3x  SXXY  + 3x^  SXY  - y SXXX  + 3x  y SXX  -3x^y 


MXXYY  = 


MXYYY  = 


MYYYY  = 


I 2(x.  - x)2  (y.  - 9)2 

SXXYY  - 2x  SXYY  - 2y  SXXY  + x^  SYY  + y^  SXX  + 4xy  SXY 
i 2 (X.-  X)  (y.  - 9 P. 

SXYYY  - 39  SXYY  + 39^  SXY  - x SYYY  + 3x9  SYY  - 3x9^ 
^ S (Yi  - 


3x^92 


= SYYYY  - 49  SYYY  + 69^'  SYY  - 39^. 


In  use  the  subroutine  initialized  for  a particular  city  by  calling 
it  with  JCTL  = I.  This  sets  the  sums  SX,  SY,  etc.,  to  zero.  It  is 
then  called  for  each  tract  with  JCTL  = 2 with  the  values  of  x^  y , and  P^ 
for  that  tract.  It  is  then  called  with  JCTL  = 3 to  compute  the 
moments.  The  first  step  in  this  process  is  to  compute  the  moments  with 
the  formulas  just  given. 

Next  the  principle  axis  are  found.  Suppose  now  x,  y are  the  original 
axis  through  the  center  of  gravity,  and  x',y“^  are  axis  rotated  counter 
clockwise  through  an  angle's  . Then 

x'  = X cos  9 + y sin  9 

y'  = y cos  9 - X sin  § 

Denote  moments  about  the  primed  axis  by  a final  letter  I.  Then 
IXX  = J 2 xj*^  P.  = i 2 (x.  cos  9 + y.  sin  9)2p. 

ir  X 1 It  X X X 

= £|s!i  Ex^2p,  . 2Sin^_sos_i 

+ 2^  E y2 

= cos^g  MXX  + 2 sin  9 cos  9 MXY  + sin2  § myy 
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Similarly 


IXY  = i £ xj 


= (cos^  0 - sin^e)  MXY  + sin  0 (MYY-MXX) 


lYY  = J S 


= cos^0  MYY  - 2 sin5  cosS  MXY  + sin^0  MXX. 


oiT«r/n^4. 

It  is  well  known  and  easily  verified  that  IXX  and  lYY  take  on  oMtornad.  y»lui 


when  IXY  = 0.  These  give  the  principle  axis  we  wish.  Moreover,  if  an 

ellipse  is  drawn  about  these  principle  axis,  and  the  distance,  from  the 

origin  to  the  ellipse  found  at  an  angle  0 to  the  principle  axis,  then  the 

2 

moment  about  the  axis  is  Ixly/r  . 

Setting  IXY  = 0 gives 


tan  20  = 


MYY-MXX 


It  shall  be  assumed  - < 20  < ^ 


It  is  convenient  to  use  0 = - 9.  Then  sin  0 = - sin  §, 

cos  0 - cos  S,  tan  0 = - tan  5. 

Also  x'  = X cos  0 - y sin  0 

y'  = y cos  0 + X sin  0. 


IXX  = cos^0  MXX-2  sin  y cos  0 MXY  + sin^  0 MYY 


lYY  = cos^0  MYY+2  sin  0 cos  0 MXY  + sin^  0MXX. 


We  define  a as  the  angle  from  the  Y axis  (north)  clockwise  to  the 
principle  axis  with  its  largest  value  of  the  moment  (semi  major  axis). 
Since  no  direction  along  the  principle  axis  is  specified  0 < a < tt. 
Then,  it  is  readily  seen  that  if 


IXX  > lYY 


0 < 0 < ii 


_ 4 


a = 5 + 0 


-5  < e < 0 


a = 5 + 0 


and  if 


lYY  > IXX 


0 < 0 < ^ 


< 0 < 0 


a = 0 
a = 7T+  0 
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>4 


i4 


i 


In  order  to  determine  values  for  higher  moments  the  formulas  for 
x' , y'in  terms  of  x,  y and  0 are  used.  It  is  assumed  in  these  formulas 
that  IXX  > lYY.  The  values  will  be  given  with  6 (big)  replacing  X,  and 
L (little)  replacing  Y.  If  lYY  <IXX,  then  after  the  calculation  the 
roles  of  B and  L are  interchanged.  We  thus  have 

IBB  = IXX 

ILL  = lYY 
,3 

IBBB  = ^ ^i  ^ F ^^^i  0-^1  sin  0)  P^. 

= cos^  9 MXX  - 3 sin  9 cos^  0 MXXY 
+ 3 sin^  9 cos  9 MXYY  - sin  3 0 MYYY 

Similarly  2 

ML  = i 2 x'j  y!p^ 

= cos^  9 MXXY  - 2 sin  9 cos^  0 MXYY 
+ sin^  9 cos  9 MYYY  + sin  0 cos^  0 MXXX 

- 2 sin^  0 cos  9 MXXY  + sin^  0 MXYY 
, 2 

IBLL  = i 2 x^y^ 

= cos^  0 MXYY  + 2 sin  9 cos^  0 MXXY 
+ sin^  0 cos  9 MXXX  - sin  0 cos^  0 MYYY 

- 2 iin^  0 cos  9 MX)8t  - sin  0 cos^  0 M¥¥Y 

1 3 

iLLL  = f s y/  Pi 

= cos^  0 MYYY  + 3 sin  9 cos^  0 MXYY 
+ 3 sin^  0 cos  9 MXXY  + sin^  0 MXXX 

IBBBB  = ^ 2 P^ 

4 *' 

= cos  0 MXXXX  - 4 sin  0 cos  3 0 MXXXY  ' 

+ 6 sin^  9 cos^MXXYY  - 4 sin^  9 cos  0 MXYYY 
+ sin'^  9 MYYYV 


IBBBL  = ^ y^P. 

= cos'^  9 MXXXY  - 3 sin  0 cos^  9 MXXYY 

+ 3 sin^  9 cos^  0 MXYYY  - si  9 cos  9 MYYYY 

+ sin  9 cos^  9 MXXXX  - 3 sin^  9 cos^  9 MXXYY 

+ 3 sin^  9 cos  0 MX)£YY  - sin^  0 MXYYY 
2 2 

IBBLL  = I 2 

= cos'^  9 MXXYY  - 2 Sin  0 cos^  9 MXYYY 
+ sin^  e cos^  9 MYYYY  + 2 sin  0 cos^  0 MXXXY 

- 4 sin^  9 cos^  0 MXXYY  + 2 sin^  9 cos  9 MXYYY 

+ sin^  0 cos^  9 MXXXX  - 2 sin^  9 cos  0 MXXXY 

+ sin'^  9 MXXYY 

3LLL  = i r x-y^ 

= cos"^  0 MXYYY  + 3 sin  9 cos^  9 MXXYY 
+ 3 sin^  9 cos^  9 MXXXY  + sin^  9 cos  9 MXXXX 

- sin  9 cos^dMYYYY-  3 sin^ftcos^  9 MXYYY 

- 3 sin^  9 cos  9 MXXYY  - sin'^  9 MXXXY 

, 4 

ILLLL  = f P^ 

= cos'^  0 MYYYY  + 4 sin  9 cos^  9 MXYYY 
+ 6 sin^  0 cos^  9 MXXYY  + 4 sin^  9 cos  0 MXXXY 
+ sin'^  9 MXXXX. 


■iHe 

Finally,  the  moments  are  normalized  by  dividing  by^ appropriate 
power  of  the  standard  deviation.  ^ “thrower  of  the  larger  or  small 
standard  deviation  in  the  denominatfS«'  in  the  same  as  the  number  of  B’s 
or  L’s  in  the  symbol.  Then,  for  example 


SGBBBL  = IBBBL/(SGBB^  • SGLL) 

where  SGBB  and  SGLL  are  the  standard  deviations  along  the  large  or  small 
axis. 


For  one  and  two  moment  tracts  a special  calculation  of  moments  is 
conducted  if  KCTL  = 2.  The  product  of  the  two  moments  if  a city  is 
estimated  from  the  following  approximate  empirical  formula 

agC^  = 0.000186 
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For  one  tract  cities  Og  is  set  equal  to  a^.  Moreover,  SGBBBB  = 

SGLLLL  = SGBBLL  = 3 as  for  a circular  Gaussian  distribution.  For  two 
tract  cities  <7^  computed  by  dividing  by  a^.  Here  SGLLLL  is  set  = 3. 

For  two  tract  cities  a special  calculation  is  carried  out  to 
determine  the  tract  separation  and  rctLtrS  of  population  of  the  two  tracts. 

Let 

= distance  of  Tract  A from  center  of  gravity 
f^  = fraction  of  total  population  in  Tract  A 


with  analogous  definitions  for  Tract  B. 

is  positive  (if  not  rename  the  tracts), 
along  the  principle  axis  give 


1 f A + ‘b 
° “ ’‘a^a  ’‘b^b 

® ■ ’‘a^A  ’‘b^b 


where 


a = SGBB' 


B = SGBBB  • (SGBB)- 


Call 


R = ^ 
^ 2a 


and 


There  these  equations  have  the  solution 


— R + S 
Xg  = R - S 


= (S  - R)/2S 
f-A  = £5  + Ri/2S^ 


Moreover,  assume  Tract  x^^ 

Then  the  equation  fo.r  the  moments 


I 


A 


The  separation  TWOSL'P,  and  ratio  of  f^  to  fg,  TWORAT,  are  then 
readily  computed. 

Several  additional  calculations  may  be  made  by  a second  pass 
through  the  datA.  This  is  done  by  supplying  values  of  x^,  y^  and  p^ 
in  succession  and  calling  the  subroutine  with  JCTL  = 4. 

When  the  subroutine  is  called  with  JCTL  = 4 the  distances  from  the 
principle  axis  are  computed.  This  is  done  by  setting  9 = ^ - a and 
using  the  rotation  equation  in  0 already  presented. 

If  K&/Q  = 1 points  are  rejected  if  their  distance  from  the  principle 

axis  is  greater  than  SCOUT  • SGBB  or  SCOUT  • SGLL.  If  a point  is  rejectet' 
xeeftr  Xerrcr 

ith  flag  IRL-Tg is  set  to  1 (it  is  0 normally)and  the  counter  IRL^ JGg  is 

increased  by  one.  The  subroutine  is  then  exited  and  mem  of  the  subsequent 

calculations  are  performed  for  the  rejected  point.  The  value  of  SCOUT  is  5 if 

it  is  SGOUTR,  which  must  be  supplied  to  the  subroutine  on  the  last 

call  with  JCTL  = 1 if  = 2.  The  sums  SX  . . . SYYYY  are  incremented  for 

those  calls  where  points  are  not  rejected.  If  these  sums  are  to  be  used 

the  subroutine  must  have  been  reinitiated  by  a call  with  JCTL  = 1 just 

before  the  calls  with  JCTL  = 4.  New  principle  axis  and  moments  can  be 

computed  by  a call  with  JCTL  = 3.  If  desired  the  entire  rejection  process 

can  then  be  repeated. 

The  maximum  and  minimum  values  along  the  two  principle  axis 
BMAX,  BMIN,  SMAX,  and  SMIN  are  computed  (no»e  i - Ogg. ak  u law<r  iragra 


If  KCHI  = 1 statistic  >CHISQ  computed.  To  do  this  the 

expected  value  is  computed  as  „ - 


®i  = 
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1 


The  x'^  statistic  is  then  computed  as  the  sum  of 

(ei  - Pi)2 


the  number  of  degrees  of  freedom  is  interpreted  as  the  total 

population.  If  a call  with  JCTL  = 5 is  made  after  the  JCTL  =4  calls,  a normal 

2 

approximation  to  the  x statistic  is  computed.  Here 


with 


ZAPPX  = (CHV  - 1)/SGNM 


CHV  = CHISQ/TV 


SGNM  = 2/TV. 

If  KFRAC  = 1 a set  of  fractional  moments  are  computed.  These  are 
computed  from  sums  taken  the  same  as  with  the  normal  moments  except 
instead  of  powers  of  x'  or  y',  roots  of  those  variables  are  taken,  i.e., 
the  values  of  x'  any  y'  are  raised  to  the  reciprocal  powers.  Thus,  for 


example 


1/3 

FRBBBL  = S(x')  y'. 


when  the  same  convention  or  number  of  B’s  and  L’s  is  adopted  as  before. 

For  even  power  roots  the  root  of  the  absolute  value  of  the  distance  is 
used.  In  computing  FRB,  FRL,  and  FRBL,  absolute  values  are  used  due  to 
the  special  nature  of  the  sums. 

At  the  completion  of  the  calls  with  JCTL  = 4,  a call  with  JCTL  = 5 
will  normalize  theAmoments  by  dividing  by  the  roots  of  the  variances  to 
the  same  degree  as  the  number  of  B’s  or  L’s  in  the  symbol.  Thus,  for 
example 

FRBBBL  = FRBBBL/CSIBBB^'^^  . SGLL). 

The  interpretation  of  the  fractional  moments  should  be  analogous  to  that  of  tjji 
power  moments.  They  will  emphasize  those  parts  of  the  distribution  near  the 

A5  ^ I 

axis,  rather  than  outlying  points  with  higher  moments.  LI 
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itmeia_p-at*n«.«xy/iyy_-  axn 

continue 

^ETr«  TmrT/f.  ~ . 
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SINS  ■ S|NO«SINo 
. SIMC  ■ SINO«SINS- 
SINr  • S|NS*StNs 


cose  ■ coss*coso 


VAHXX  ■ ***^°^^  ~ g«*SlNO*COSO«XV  • VV»SINS 
FIND  ELLIPSE  aNqLE  ~ 


VARse  ■ varix 

-VAHU  -»-.VABY-Y 

ALRH*  ■ PIH  ♦ TmETa 

* A A Vm  m A 


CONTINUE 


S6LL  ■ SORTIAHSiVARlU) 
-IX-t-VABtL  .CT^O»»  SOU  ■-«. 


NOP  rotate  axis  ro*  hiohe"  NONENTS 
...  ASSUHE.  FOR  THE- nOMEMT -THAI- flOlAlEa-X-AXlS  JS  lUO  ilXlS 

soesR  ■ xxx*cosc  -3,*xxv*coss*siNO  • 3t*xyy*coso»siNs 
-4-«_yyy«siNc 

SGLLL  ■ yyy»COSc  ♦3,*xyy*C0SS*SIN0  • 3,*XXy*COSO«SlNS*  XXX*SIN 

— sa8Bi^«-Juiy»cosc- - ?«*xyy*siNO*coss  * yyy»siNS»coso  •xxx*sino* 

1 coss  -2.*xxy»siNS*coso  • xyy*siNc 

SQBLL  ■-XyyfCnSc  • 2«^»xxySIN0»C0SS  • XU«SinS«COSq  ^.vvvaSINO* 
1 coss  - 2.*xyy»slNS*coso  - xxy*siNc 

—S6BUB  A_XXXX*CoSF-».4.*XXxy*C0SC*SIN0  • s.*xxyy«coss«siNs 
1 - 4,»xyyy»coso»siNc  ♦ yyyy*siNF 

MLlyL  m vvyygn<F  » _4,*XYyy*C0SC»S INO _♦  A.«XXyy*COSS*SINS 
I ♦ 4,*iXxy*C0S0*SINC  « XXXx»SlNF 


* 4 A 4. 


1 . yyyy*coso»siNC  • xxxx*sino»cosc  - 3»«xxxy»coSS»siNS 
J_JL_3^41X3Ut*COSo*SlRC  • Xtyjf*SlNF 

S6BLLL  • Xyyy»COSF  ♦ 3,*XXyy*COSC*SlNO  • 3,*XXxy*COSS*SINS 
-1-^  jixxx*coso*siNC  j yyyy*cosc«siNO  - 3**xyyy*coss*siNS 

2 . 3,*XXyy«C0S0«SINC  - XXXy*SlNF 

■ -SBbhlL-x.  xxTycosr.  »-E»»xTxysino*cosc  *-xyyt  •siiis*coss 
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2 ♦ XXXX«StNS«COSS  ♦ 2.*XXXY»SINC*C0S0  • XXYY»SINF 


IF  ( VAPXX  .OE.  VARYY)  00  TO  61 


TCMF  ■ SOORB 


SOLUL  • temp 
TEW  ■ . SQBRL  - 
SOBBL  ■ S6BLL 


TEMP  ■ SOBRBB 


sollll  ■ Temp 

TEMP . ■ -SOBtU. 

SOBLLL  ■ S6BBBL 

6l  CONTINUE 


X-  NORMiUZfc..  MOMEttfS 

IF(  SOBB  .IT,  O.OQfloOOl)  00  TO  46 

1B4-  SoCL  .LT.  0»S000001)-oO-TO  45- 

SOBBR  ■ SOBBB/tVARee^SOBB) 

SOBBL  ■ SOBBL/ >WARBQ»S6U> 

SOBLL  ■ SSRLL/<$GBB4VARLU 

SflLLL  ■ SBLLL/CVAHU4SOLU1 

SOBBBB  B S0BBBB/(VARBB4VARRB) 

SQBBLL  a SOBBLL/(VARBB4VARlL) 

SOBLLL  ■ SflBLLL/tSflBBBVAHLL»SSLU 

SOLLLL  ■ 5nLLLL/«VARLL*WARLL) 
oa-ia_66 

65  CONTINUE 

SOBBBB  a SOBBBB/ <VARBBaVARRB) 

SOBBL *5. 

SOBLL  aO. 

-SOLLL ao, 

SOBBRL  aO, 

_ SOBBy — 

SOBLLL  aO. 

sollll  . aOh. 

66  CONTINUE 

IF-  (nIrT — *NE»-21~Oa-To  65 

IF  I VARBR  «LT.  0*0000001 > 00  TO  4B 


beta  a S0BBB«VANBB*S0BB 

RATO.  a-BeTA/iZ.AVARSBl  - - 

ROOT  a SORT(RAToaR«TO  • VARBB) 

— C XtUS-ASSUMES- TMAl^XA  IS  LAROER-TMAN  XS  ALONE  THE.  POSITIVE  B AXIS 

FSA  a (ROOT  - RaTO) /(E.aROOT) 


••••  UNCLASSIFlED..a**«..II-ll»8  —09/05/73 


PAOE  NO.  000025 


••••  UNCLASSIFIEO  •••• 

—smuou  T I HE— aiMOM 
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^ — COC-**00  rti*  V3,0«»2*4-  0rTa.l 


TNORAT  ■ FS*/rS8 

TWOSEP*  8.*«00T 

CONTINUE 


SOPROS  ■ 0.000^8««TV*«0.B^9 


SOLLLL  > 3. 


icV.I  :!■  1*1 


S08LL«0« 

*AI  I I bA  . 


SOBBBLaO. 


SGBLLLaO. 


■fll*T7lAl.IlTj 


RETURN 


■ ■<oiTbbI'iIT  t 


IF(  JCTL  .6T.  *)  60  TO  90 


TP  • TU*COSN-  XU«SINN 


fTTiMT.lf  cr»»4»W-|.1 


3ia 


TP*  ■ «BS(VP) 
TriyPA  .1  T.  n. 


XPSN  ■ XP/XP* 

. BO  Tfl  W7 

CONTINUE 

-XMN_a_U 

CONTINUE 
tri vdA  .it.  n . 


TPSN  ■ YP/YP* 

■00.10-39 

CONTINUE 

VDCil  m \ 


CONTINUE 


TPS  ■ YP*TP 

XP9H  m SQHT(XP4) 

TPSR  ■ SORTtYP*) 

XPCB  ■-XP-SM-«UPAXf0TH- 
TPcR  ■ TPSN»(YP#)*«OTh 


THREE  31BMA  RFJfCTION  TEST 

IREJT  ■ 0 

.3tliI_>-S6QUt9S0B3~ — 

SLNT  ■ S80UT*S0LL 
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D 
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tWEJT  ■ I 


l*EJCT  ■ t«EJCT  « 1 


• 1 


CONTINUE 

IE(  »0  .•!. 


ir 

-XX. 


(T^  .ST.  $M«XI  SnAX  ■ TN 
«>.T.  miNI  »M|H  ■ X» 


*95 


ir<  TA  •LT.SNTNt  SMiN  ■ 

iriKcwi  .Me*  n 50  xa  . 


CALCULATION 

iriVANse  .lt.  o.ooooooi>  *o  to  oo 

TUN*  ■ rXNt«X»*1iN/l2.>MXNBN>> 


VU- 


-»N- 


50  TO  97 
-CONTINUE- 


-51- 


TM9A  ■ 1, 


A05 


iriVxNtL  .LT«  O.OOOOOOU  00  TO  90 
TMMln  CiefY>.0vP/t2.tV55LU> 


00  TO  «9 

00- — continue 

TNNO  ■ 1 
-00 CONTINUE 


111. 


VALEX  ■ 7V«TNNO»TN#b/TN0NI 

TENO  ■ HLLE««0» 

CHISO  ■ CMISO  * TENMTENN/VALEX 


! - ^ 
I 

915“ 


ir  ckerac  *ne.  i>  00  to  05 


confute  suns  eon  EN*CTIONAl  NONENTS 

■ EM  ■ roo  • MAnEI 


♦M 


fOL  ■ r^L  ♦ TE9«E| 

-EMO-N  EROE  • X«Sll«El 
FML  ■ F9BL  ♦ *EA«TEA«El 
EOLLr  ■ E«LL  -^TNSNFNI 
FROOD  ■ FRnNN  ♦ xECR»El 
FNBOl  ■ FWOBL  ♦ XFSWVN^Nl 


925 


Ol. 


xe«yesb»ei 

YPCB*EI 

♦ EI«XEA«»0.E5 

♦ xecb*ye«ei 

♦ XBSB«YESN«FI 

LLL  N-EBaLLL  • XB«Y»CB*BI  - 

♦ E1«YEA»«0.2S 


FBBLL  ■ EBNLL  ♦ 
-FBLLL  • ERlLC  * 
FBOBNO  ■ EBOOBO 
EBBBBC  M EBBBBL 
EBBBlL  • EBSBLL 
-EJBi 


EBLLLL  • ebllll 

05  CONTINUE  _ 

BETUBN 

90  CONTINUE 


935 


9AE 


£ E£HAL  CLEANUE  foLCULAnONS  EBON  £ECONO  EASS 


IE(  KCHI  .NE«  1)  00  TO  91 

COM^TC  NOBNAL  9BBB0XlN«rIm  TO  CNI  SOUABE  OlSTBlOUTtON. 

■ CMV  ■ CNISO/TV 
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SUBROUTINE  TELFAR  (Deck  #15) 


A,  GENERAL 

This  subroutine  determines  the  minimum  distance  between  two 
ellipses.  It  was  developed  to  determine  If  two  population  nodes, 
represented  by  elliptical  normal  distributions,  are  close  enough 
to  be  considered  contiguous.  The  location,  size,  and  orientation 
of  the  two  ellipses  are  given  to  the  subroutine.  If  the  minimum 
distance  Is  less  than  the  Input  parameter  DCUT,  the  value  of  DCUT 
Is  returned  In  the  output  parameter  DSTMN.  Otherwise,  DSTMN  con- 
tains the  minimum  distance  between  the  ellipses.  By  setting  DCUT 
equal  to  zero  the  minimum  distance  between  the  ellipses  Is  always 
returned.  However,  the  calculation  time  may  be  appreciably  longer 
than  when  DCUT  Is  larger  than  this  minimum  distance.  If  the 
ellipses  Intersect  and  DCUT  = 0,  DSTMN  will  be  a value  near  zero 
but  not  necessarily  Identically  zero. 

B.  REQUIREMENTS  ON  CALLING  PROGRAM 

The  following  variables  In  the  common  block/ELPAR/  must  be 
supplied  by  the  calling  program. 

PLATA,  FLONA,  PLATE,  FLONB  - the  latitude  and  longitude  of 
the  centers  of  the  two  ellipses  denoted  by  A and  B. 

SIGBA,  SIGLA,  SIGBB,  SIGLB  - half  the  semlmajor  and  semlmlnor 
axis  of  the  two  ellipses.  The  size  of  the  actual  ellipse  for 
which  the  distances  are  calculated  has  semlmajor  and  semlmlnor  axis 
twice  the  length  Input.  Distances  are  In  statute  miles. 

ALPHA,  ALPHB  - the  angle  In  degrees  clockwise  from  the  north 
to  the  ellipse  semlmajor  axis.  These  angles  are  between  0 and  180 


degrees.  DCUT  - the  minimum  separation  distance  in  statute  miles 
of  interest.  If  the  ellipses  are  closer  than  DCUT,  a value  of 
DCUT  is  returned. 

The  subroutine  returns  the  distance  in  statute  miles  in  the 
variable  DSTMN.  If  a value  of  -999  is  returned  no  convergence  was 
obtained  in  100  iterations. 

C.  ALGORITHMS  IMPLEMENTED 

The  minimum  distance  is  determined  by  searching  through  values 
along  the  semimajor  axis  if  the  two  ellipses,  and  x^,  until 
successive  distance  calculations  are  less  than  an  error  tolerance 
TOL.  The  ellipse  furthest  west  is  numbered  ellipse  1.  An  x , y 
coordinate  system  is  centered  in  ellipse  1 with  x pointing  north 
and  y west.  A point  x,  y,  on  ellipse  1 is  expressed  in  x y coordi- 
nates by  rotation  through  an  angle  a.  For  ellipse  two,  coordinates 
are  rotated  through  an  angle  a and  then  translated.  The  square  of 
the  distance  is  found  as  the  sum  of  the  squares  of  the  difference 
in  X and  y coordinates. 

The  points  on  the  ellipse  closest  to  the  other  ellipse  is  used. 

Call  0 the  clockwise  angle  from  the  north  from  the  center  of  ellipse 

1 to  the  center  of  ellipse  2.  Then  if  < 0 the  y^  coordinate  is 

negative,  otherwise  positive.  If  02  < 0 the  y2  coordinate  is 

positive,  otherwise  it  is  negative.  From  a value  of  x^^  the  value  of 

2 7 

1-x^  /a^  , where  a^  and  b^ 

are  the  semlmajor  and  semlmlnor  axis. 

The  initial  values  of  x^  and  X2  are  taken  as  0.  Values  of 
distances  squared  are  computed  for  x^,  and  x^  + Ax^, 

where  Ax^  = .Ola^,  holding  the  x coordinate  on  the  other  ellipse 


constant.  The  first  and  second  derivatives  of  the  distances 
squared  as  a function  of  x are  estimated.  A parabolic  fit  is 
made  to  estimate  the  value  of  for  which  the  distances  squared 
are  minimized.  A new  value  of  x^  is  taken  where  the  change  in 
is  the  constant  "speed"  multiplied  by  the  old  value.  The 
process  is  then  repeated  until  the  change  in  value  of  distance 
squared  is  less  than  the  value  TOL, 

In  the  current  subroutine  SPEED  ■ 0.5  and  TOL  ■ 0.01. 
Typical  solutions  require  from  10  to  20  iterations. 
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A SUBROUTINE  TO  FIND  THE  DISTANCE  BETWEEN  TWO  ELLIPSES. 


THE  DISTANCE  IS  FOUND  BY  BRUTE  FORCE  MINIMIZATION  USING  THE  TWO 


FLATA*  ETC  ARE  CG»  STP  DEV  ALONG  LARGE  AND  SMALL  AXIS  AND 

ANGLE  ROTATED  FROM  NORTH  FOR  ELLIPSE  A.  FLATS  ETC.  FOR  ELLIPSE  R. 

OCUT  IS  HINIHUHSEPERATION  OF  INTEREST.  IF  01STA^E“iF  LESS  THAN 


COHMON/ELPaR/FLATA.FLONA.  sigba.sigla. alpha, FLATB.ELONB.SIGBB. 

ISIGLHiALPHB.OeUTtDSTHN 

DATA  CONW»TORAD,PIM/69.1T13,O.OITA53*I.ST0796325/ 

initialize 

TOL  ■ O.OI 

SPEED  • °*S 

KNT  ■ 0 

OCUTSQ  • 0CUT«0CUT 

1F(FlON6  .GT.  FlONA)  go  to  10 

PLATO  ■ PLATA 

PLONO  ■ FLONA 

AO  ■ g.^SlGBA 

BO  > Z.«SIGLA 

ALEMflj  -ALgRAPlOBAD 

FLATT  ■ FLATS 

FLONT  ■ FLONB 

AT  ■ 2.«S1GBB 

BT  ■ 2.*SIGLB 

ALPHT  a ALPHBaTORAO 

fiO  TO  11 

CONTINUE 

FLATO  a PLATB 

PLONO  a PLONB 

AO  a Z.aSIOBB 

BO  a S.«SIGLB 

ALPHa  «_ALgH&!aaR*.D 

PLATT  • PLATA 
FLONT  a PLQN 


AT  a 2,«S1GBA 

BT  a 2.*8IGLA 

ALPHT  ■ AlPHA*TORAO 
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SUBROUTINE  TELFAR  rOC  6400  FTN  V3.0.P94I  OPTbI  j 

AOSO  a A0«A0  1 

ATSO  a ATaAT 


atm  ■ .AT 


atom  a .ATO 

XC  a (FLATT  . FLATO)acOMV 


AV6L  a e.5aT0RA0*(FLATT  * FLATO) 


OCLVCA  a ABS(OElVC) 

if(oflyca  .lt.  o.eo oo U del Ycao tO 0 p 0 1_ 

TANTh  a OELXC/OELYC 


SIOO  a 1. 
ONTTN 


IFCAlPHT  .OT.THCTA)  go  to  it 


GO  To  18 

CONTINUE 

SIOT  a -1, 

ONTtN 


eOSAO  a COS(ALPHO) 
3XNJ>Q_a_  SIN  t ALgMO  JL 
COSAT  a COS<ALPhT) 

XOOLO  a 0. 

.0. 


OELXO  a .ai*AO 


0°L0  a 9999999. 

■AQ-a_.XflOLD 

XT  a XTOLO 

0 a 1 


GO  TO 

jcontlnue 

OCNT  a OSO 


CONTINUE 


iterate  on  XOOLO  AMO  XTOLO 
_tINO_SLOPES_ANO_eURVATURE.  OF_  01  ST_ CHANGE  IN__TWO,OIRECTIONS 
XO  a XOOLO  * OELXO 


XT  a XTOLO 
IGO  a 2 
00  TO  100 


CONTINUE 

OPLSO  a OSO 

XO  a XOOLO  • 

^0--  3 

GO  TO 

CONTINUE 


OELXO 
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JUXAfi 

MNSO  ■ OSQ 


XO  ■ XOOLO 


CONTINUE 


XT  ■ XTOLO 


GO  TO  100 


OMNST  • OSQ 


08/1G/73  PAGE  NO.  000011 

CDC_640a_tTN  .V3.1L«W*J^PJ«X 


OISTO  • -SPEE0«0EL0*0ELX0/000 

JllSl3_»_-SPJE£DJt)£LT*0EUll/DDT 

1F(01ST0  .GT.AOaiOlSTO  • AOQ 

1F<01ST0  .LT.AOqM)  OISTO  • AO^ 


XOTPY 

■ XOOLO  * OISTO 

> 1F<X0T 

XQQU1_ 

RV  «LE.  AON)  GO  TO  3 
■ XOTRY 

2 

1F(XTTRY  .OE  . aTJ  go  to  34 

_I£JXtrp3f_.Lt.ATMLj80_T0_35 

XTOLO  ■ XTTRY 

jSiUQ-J* 

CONTINUE 

■ o.i;*(X 


GO  TO 

CONTINUE 

XTOLO  > 0.S*(XT0L0  • ATM) 

CONTINUE 

XO  > XOOLO 
XT  ■ XTOLO 


100  • ft 

GO  TO  100 

CONTINUE 

OCNT  ■ OSQ 

1F(0CNT  .0T«  OCuTSQ)  GO  TO  »1 
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OSTMN  ■ OCUT 

DISTANCE  SHALL  ENOUGH  SO  EXIT 

JE1U8M 

CONTINUE 

OIFF  ■ POLO  - DrNT  

OOLO  a OCNT 

KNT  ■ KNT  ♦ 1 

IF(KNT  .LT.lOO)  GO  TO  3G 

DSTHN  a « 609. 

RETURN 

jam-NUE 

1F(ABS(01FF)  .07.  TOL)  GO  TO  20 

OSThn  a SORT (OCNT) 

RETURN 


CONTINUE 

ENTER  NITH  Xl»X2  AND  GET  DISTANCE 
IF<XO  .GE.  A0>  xO  a AO  » 0.0001 
1F(X0  .LE.AOH)  XO  a AON  « O.OOOl 

1FJ.&T  ^QE.ATl.  JCT_a^L  -^0 .0001, 

1F(XT  .LE.  atm)  XT  a ATM  ♦ O.OOOl 

TO-a  .SlOO*BO*SQRTq.-,^0*XO/AOSO)_ 

YT  a SI0T*BTASQRT(1.  • XT*XT/ATSO) 

xbaR  axis  points  north. 7rar  axis  Pt 
XOB  a XO«COSAO  « YOaSiNAO 

YeB_J_-XQ5«lNM_J>_YQ*C0S*0 

XTB  a XTaCOSAT  ♦ YTaSiNAT 

YTB  a »xTaSINAT  ♦ YT»C08AT 

OX  a XTB  * OELXC  *XOB 

OY  a YOB  ♦ OELYC  - yTB 

OSQ  a OXaox  ♦ OY^OY 

GO  TO  (21.22, 23, <4,25. 26  ).IQO 

ENO 


inTS  west. 
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Subroutines  FALLYB 

FALLWB(Oecjc  **n) 
FALLDBfOec^c  **-*V 
FALLCB(t>^Q^* 


These  subroutines  are  an  implementation  of  the  WSEG  10/NAS 
Modified  Fallout  Model.  The  equations  implemented  are  contained 
in  "An  Analysis  of  the  Fallout  Prediction  Models  presented  at 
the  USNRDL-DASA  Fallout  Symposium  of  September  1962,  Volume  1: 
Analysis .Comparison,  and  Classification  of  Models,"  M.  Polon, 

Ford  Instrument  Company,  USNRl)L-TRC-68 , September  8,  1966,  Un- 
classified. 

The  calculations  directly  complement  the  equations  given  in 
the  reference.  A copy  of  the  reference  is  included  with  the 
equations  implemented  referenced  by  a vertical  bar.  The  sub-  . 

routines  compute  quantities  sensitive  to  wrious  parameters/tand 

place  them  in  a storage  arrayA  The  definition  of  these  parameters 

rw4tiy  wscfr 

follows.  The  subroutine4 will  calculateABiological  Doses  at 

“7" 

bfti»^and  maximum  Biological  Doses  as  given  in  the  National  Military 
Command  System  Support  Center  SIDAC  Model  described  in  "Single 
Integrated  Damage  Analysis  Capability  (SIDAC) (U) , Analytical  Manual, 
Ralph  D.  Mason,  National  Military  Command  System  Support  Center, 
CSMAM67-68,  October  18,  1968,  CONFIDENTIAL."  These  subroutines 
are  normally  called  in  the  sequence  given. If  calling  parameters 
for  a previous  subroutine  are  unchanged,  this  subroutine  need  not 
be  recalled  for  a new  dose  calculation  if  the  storage  array  para- 
meters are  externally  supplied. 

s — ^ 

The  subroutine  FALLDB  compute^  downwind  distance  dependent 
parameters.  If  the  control  parameter  MDCAL  is  0 only  WSEG  Bio- 
logical Dose  is  calculated.  If  the  control  parameter  is  1,  then 
the  NMCSSC  time  dependent  doses  are  calculated;  if  2,  also  the 
maximum  dose  is  calculated.  In  the  latter  two  cases  the  time  of 
weapon  detonation  in  hours  after  the  start  of  the  war  must  be 
supplied. 
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A of  yield,  fission  fraction  and  height  of  burst,  wind  velocity  and 
wind  shear;  downwind  distance,  and  crosswind  distance  when  called 


The  subroutine  FALLCB  computes  crosswind  dependent  parameters 
and  return  answers.  The  answer  locations  are  the  following 

elements  of  the  storage  array. 


Information 

Time  if  NMCSSC  max.  dose 
H + 1 dose  rate 

Equivalent  WSEG  Biological  Dose 
NMCSSC  dose  at  7 hrs . 

NMCSSC  dose  at  22  hrs. 

NMCSSC  dose  at  68  hrs. 

NMCSSC  dose  at  211  hrs. 

NMCSSC  dose  at  800  hrs. 

Maximum  NMCSSC  biological  dose. 

INSERT  B 

The  subroutine  PALLYB  computes  parameters  dependent  on  yield, 
fission  fraction,  and  height  of  burst.  If  external  calculation  of 
effects  of  fission  fraction  or  height  of  burst  are  described,  these 
parameters  may  be  set  equal  to  1 and  0,  respectively.  A 0 height 
of  burst  will  bypass  the  height  of  burst  calculation.  This  calcu- 
lation produces  an  adjustment  factor  given  by 

AF  = 0.5(l-x)^(2+x)  + .OOlx  , 
where  x = HOB/(l80* (1,000  • YIELD)°'^)  . 

The  subroutine  FALLWB  computes  wind  dependent  and  wind  shear 
dependent  parameters. 


Element  Number 

31 

32 

33 

34 

35 

36 

37 

38 

39 


1 
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B.  Requirements  on  Calling  Program 

The  calling  program  is  required  to  manage  the  common  block 
/FLWSEG/.  The  input  parameters  are/, listed*.  The  subroutine  output 
fills  some  of  the  elements  in  the  output  array.  For  example 
the  subroutine  FALLYB  uses  as  input  values  of  'fLDFW  (Weapon  Yield) , 
FISSFW  (Weapon  Fission  Fraction),  and  HOBEW  (High  Burst).  It 
provides  values  of  ARRYFW(l)  to  ARRYFW(6)  which  are  used,  but 
never  modified  by  the^ siSroutines . Thus,  if  several  weapons  of 
the  same  yield  are  used,  the  subroutine  FALLYB  need  only  be 
called  once  for  this  group  of  weapons  provided  the  calling  program 
insures  the  appropriate  values  are  in  elements  1 to  6 of  the  array 
ARRYFW. 


WORD  NO. 
IN  BLOCK 

NAME 

MEANING 

SUBROUTINE 

..REQUIRED 

1 

YLDFW 

Weapon  Yield  (MT) 

FALLYB 

2 

FISSFW 

Weapon  Fission  Fraction 

FALLYB 

3 

HOBFW 

Height  of  Brust  (ft) 

FALLYB 

WNDFW 

Fallout  Vflnd  Speed  (mph) 

FALLWB 

5 

SHRFW 

Wind  Shear  (mph/ft) 

FALLWB 

6 

DWDFW 

Downwind  Distance  (statute  ml) 

FALLDB 

7 

MDCAL 

Control  Parameter  Value 

0 - WSEG  Bio  Dose  only 

1 - NMCSSC  Time  Dose  also 

2 - NMCSSS  Max  Dose  also 

FALLDB  & 
FALLCB 

8 

TWPNFW 

Time  of  Weapon  Detonation, 
only  needed  If  MDCAL  ^ 0 

FALLDB 

9 

CWDFW 

Cross  Wind  Distance  (statute  ml) 

FALLCB 

10 

ARRYFW  (i<0) 

Storage  Array 

ALL 
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Input : 


Y 

W 


DEFINITIONS  OF  QUANTITIES  IN  ARRAY  FOR  USE 
IN  THE  WSEG  10/NAS  IMPLEMENTATION 

- yield  HOB  - Height  of  Burst  F - Fission  EftFeet 

- wind  D - Downwind  distance  C - Crosswind  distance 

- shear  T - Time  of  weapon  detonation 


AY 


,MENT 

NAME 

SYMBOL 

MEANING 

FORMULA 

1 

SIGO 

Effective  cloud 
diameter 

exp[0.70+ln  Y/3-3. 25/ (4¥(lnY+5 . 4) ^) ] 

2 

SIGOS 

Square  of  cloud 
diameter 

Q 

O 

K> 

3 

HC 

H 

c 

Height  of  cloud 
center 

44+6.1  lnY-.205(lnY+2.42) 
|ln  2.421 

4 

SIGH 

^H 

Vertical  thick- 
ness 

0.18 

c 

5 

TCHAR 

T 

Characteristic 
arrival  time 

12  ^c  2 

T=l. 0573203(^^-2. 5(^)^)  • 
(1-0.5  exp((-H^/25)2)) 

6 

7 

nfaC 

SIGCFA 

F 

^ca 

Normalization 

factor 

factor 

c 

2,000,000  FISS-AF-Y  . . 

where  AF=0  if  x (hHOB/ (180  • (lOOOY)  ^ 

AF=0 .5(l-x)  2(2+x)+  .OOlx 

X.O 

8/L  0 where  L = WT 

0 0 

L^  » L ^ + 20  ^ 
0 u 

8 

SIGCFB 

^cb 

factor 

c 

'"•o  * T-o„-S^/lV 

9 

SIGCFC 

^cc 

0 factor 
c 

c^2.2(Ou.T.Oh-S^/L)2 

0 

XL 

M 

1 

GFAC 

Si 

Part  of  function 

rr 

l./(LT(l+^))  where 

r-  gamma  function  M>1.002 
r=  1 M<1.002 


2 TAFA  T^  T^  factor  L^^T  V (L^  (L^^  + 0 . 5 


UY 
HM  MT 

NAME 

SYMBOL 

NffiANING 

FORMULA 

13 

TAPS 

^aB 

T„  factor 
a 

0.25  + 2a^^/(L^^  + 0.5 

14 

SIGU 

spread 

factor 

0 0 0 0 0 

15 

SIGFD 

8/L 

Multiplication 

factor 

8/L 

16 

2/W 

Multiplication 

factor 

2/W 

17 

JliSf 

Multiplication 

factor 

.001*H^*W/a^ 

PDF 

FD  factor 

L^/(L.aj^a^)  where  * 1/(1. + .001  H^W/a^) 

If. 

Not 

Used 

2f 

FCFB 

FC  factor 

a where  a.  SIGCFA-DF  +(SIGCFB-DF) 

+SfGCFC 

21 

FCFB 

FC  factor 

2 s) 

0 .5/  where  ^ 

U2  ® 1/ (1 .+AtFB(l-  cumnor  (2D/W))) 

22 

FD 

Downwind 

intensity 

NFAC’GT’cumnor(FDF'D)  where 
GT  » GFAC-expC-M/L)^ 

23 

TA 

T 

a 

Time  of  fallout 
arrival 

(TAFA(D+2o^) ^ + TAFB)^/^ 

24 

BIO 

B 

Ratio  of  WSEG 
Biological  Dose 
to  H+1  Dose  Rate 

exp-C.287  + .52  ln(T,/31.6) 

ci 

+ .04475(ln  T,/31.6)^ 

ci 

25 

2f 

27 

28 
2i 

dbtS 

°BTi 

NMCSSC  Biological 
Dose  factor 

Z » .5+4.5  expC- .00061+. 00025  ^ (T^ -T^) 

and  Tj^  = 7,  T2’‘22,  Tj-68,  T^  = 211,  Tg  = 2800 

hrs . 

30 

DBTM 

°BTm 

Max-Value  of 
Dose  Factor 

Parabolic  interpolation  from  DBT^ 

31, 

TM 

T 

m 

Time  of  max 
dose 

Parabolic  interpolation  from  DBT^ 

32 

DR 

Hff/dose  rate 
H*\ 

Fc‘Fd  where  F^*FCFB-exp(-FCFB-C^) 

ARRAY 

ELEMENT  NAME 


SYMBOL  MEANING 


FORMULA 


33  ERD 


36  S DRTI 


D„,n  WSEG  Biological  DR-BIO 
Dose 


Ddo,  NMCSSC  Dose  Rate  DBT.*D„., 
^^i  at  hours  ^ ^ 


Max  NMCSSC 
Biological  Dose 


D *D 
^DTm  ^H+1 


Elements 


Calculated  from 


Yield 


7-18 

20-31 


32-39 


Wind,  Shear  and  Elements  1-S 

Downwind  Distance,  Time  of  Weapon  Detonation  and 
Elements  1-18 

Crosswind  Distance  and  Elements  1-31 


:i-i66 


r 
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5.2.1 


•iS'EAPC:;  SYSTB'S  E/ALUATia'^  GROUP,  OCD  (iVSEj)  (Reference  6) 


Cloud  Submodel 


1.  Early  Dynamics.  The  WSEG  model  is  used  for  land-  and 
water-surface  bursts.  Early  dynamics  are  not  explicitly  represented, 
but  the  current  model  contains  ^ hoc  corrections  (see  and 
Transport,  subsection  5w2.2)  to  reduce  the  area  coyered  by  fallout  prior 
to  the  stabilization  of  the  cloud.  The  model  is  used  for  yields  in  the 
range  between  1 KT  and  100  MT. 

2.  Cloud  Geometry.  The  cloud  has  diffuse  dimensions  that 
thin  out  according  to  a Gaussian  distribution  which  is  giyen  below, 
under  Cloud  Activity  Distribution.  The  effective  cloud  diameter  (D), 
height  of  center  (Hg),  and  vertical  thickness 
are  given  below. 

D = 4 tfo  ' ^ 

where  (st.  mi.)  = exp  j^0.70 (iog©  Y)/3 

- 3.25/  (4.0  (log^ 

or  tfg  (kft)  = exp  [0.O6I  + (log^  W)/3 

- 3.25/  (4.0  + (loge 

' I 

where  Y = total  yield  in  MT 
W = total  yield  in  KT 

Hg  (kft)  = 44  + 6.1  logg  Y 

- 0.205  (loge  ^ 2.42)  jlogg  Y + 2.42 

•"■The  version  of  the  WSEG  model  described  in  this  section  (5.2)  is  the  version 
embodied  in  the  1962  FORTRAN  subroutine  listed  in  Vol.  1 of  the  Symposium 
Compilation.  This  version  is  currently  being  used  by  WSEG  and  other  agencies 
(see  Section  5.3);  it  differs  significantly  from  the  version  in  WSEG  RM-lO 
(Ref.  6),  which  is  sometimes  incorrectly  referenced  as  the  basis  of  spe- 
cific fallout  predictions. 

That  the  WSEG  model  is  perhaps  the  least  understood  model  in  current  use 
is  due  to  (1)  the  way  in  which  WSEG  RM-10  was  written  and  (2)  the  lack  of 
documentation  for  model  revisions  subsequent  to  publication  of  WSEG  RM-10. 
Much  of  the  explanatory  material  in  this  section  is  based  on  discussions 
between  Dr.  Pugh  and  the  author  during  the  April  1966  OCD-DASA  Fallout 
Phenomena  Symposium.  It  is  hoped  that  the  material  presented  herein  will 
provide  a clear,  although  condensed,  statement  of  the  model. 
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(AH)  used  in  the  program 


Y + 


W - 


5.4)»)] 

1.51)®)] 


! 


I 


or  H<.(kft)  = 1.86  6.1  logeW  - 0.205  (loQe  " - jlogeW  - 4.49| 

^(kft)  = 4 Oh 

Oh  =0.10  He. 

The  heights  of  the  effective  cloud  top  (1.36  H)  and  bottom 
(0.64  Hg)  as  functions  of  yield  are  shown  in  Figures  6.2  and  6.3.  The 
effective  cloud  diameter  as  a function  of  yield  is  shown  in  Figure  6.4. 

3.  Cloud  Activity  Distribution.  The  activity  is  postulated 
be  distributed  within  the  cloud  according  to  the  density  function  yo  t 

y»(DWD,  C.«D,-H) 


The  symbols  used  in  this  equation  are  defined  under  Transport  in  sub- 
section 5.2.2.  The  resulting  vertical  distributions  of  activity  for  a 
20-KT  and  a 20-MT  burst  are  shown  in  Figure  6.6.  This  density  function 
is  not  used  explicitly  in  the  program,  but  it  is  the  basis  of  the  function 
developed  to  compute  the  dose  rate  at  a point,  which  is  discussed  under 
Transport. 

4.  Activity — Particle-Size  Di stribution.  This  characteristic 

was  never  included  explicitly  in  the  model.  The  first  RAND  distribution, 
m = 4.49,  = 0.69,  was  used  to  develop  the  rate  of  cloud  deposition 

function,  g(t),  used  in  the  version  of  the  model  described  in  WSEG  RM-10 
(Ref.  6).  The  1962  version  uses  an  entirely  different  g(t)  function, 
which  was  derived  without  consideration  of>any  such  sire  distribution 
(see  Particle  Setting  Rates,  subsection  5.2.2). 

5.  Normalization.  The  value  of  the  normalization  factor  Nr 
used  is  2400  r/hr  per  KT/sq.  st.  mile.  The  outputs  are  computed  directly 
from  this  value  without  a reduction  for  terrain  shielding. 

The  quantity  2400  represents  fission  and  induced  activity  on  ■ 
fallout  particles^  and  excludes  activity  in  the  gaseous  or  monomolecular 
state.  A factor  F,  the  fraction  of  the  fallout  included  within  the  close- 
in  pattern  is  discussed,  but  the  absence  of  this  factor  from  the  FORTRAN 
program  effectively  assigns  it  a value  of  1.  This  was  done  to  reflect 
the  preponderance  of  fallout  activity  associated  with  particles  greater 
than  20  microns  in  diameter. 

5.2.2  Transport  Submodel 

1.  IVafers.  The  cloud  is  not  divided  into  finite  elements. 

1 

2.  Particle  Settling  Rates.  Particle  settling  rates  were 
never  explicitly  included  in  the  model.  Instead,  the  following  g(t) 


(2tt)V2 


exp 


DWD^  + CWD*  . 1 

f 

X 

1 

X 

[ <)§  1 

function  representing  the  fraction  of  cloud  activity  deposited  on  the 
ground  per  unit  time  as  a function  of  time  was  developed! 

° -L) 

no 

where  F is  the  close-in  fallout  fraction  previousW  specified  under 
•'Normalization,"  t is  time  after  burst  in  hours,  p is  the  complete 
gamma  function  which  serves  to  maintain  normalization  for  different 
values  of  Oq,  T is  the  characteristic  time  for  the  rate  of  deposition 
to  fall  to  l/e  of  its  initial  value,  and  ng  is  a dimensionless  parameter 
controlling  the  deposition  rate  for  late  fallout.  Note  that  the  above 
g(t)  function  is  not  the  g(t)  function  that  actually  appears  in  the 
RM-10  or  in  the  current  version  of  the  model;  the  latter  g(t)  is  pre- 
sented subsequently  in  this  discussion. 

Empirical  expressions  for  T and  Hq  that  bring  the  above  g(t) 
function  into  correspondence  with  theoretical  settling  rates  for  the 
RAND  particle  sizes  are  given  in  the  original  RM-10.  The  supplement 
to  RM-10  contains  a modified  expression  for  T which  is  a fit  to  data  on 
the  rate  of  fallout  deposition  from  one  1951  and  three  1956  nuclear  tests. 

The  expression  for  T used  in  the  current  model  is: 

T (hours)  = 1.0573203 
where  is  in  kilofeet. 

The  RiM-10  expression  for  ng,  also  in  terms  of  Hg,  allows  ng 
to  vary  from  about  1 to  1.5.  A National  Academy  of  Science  committee 
subsequently  deemed  the  varying  ng  to  be  an  unnecessary  refinement  in 
view  of  the  large  scatter  and  uncertainty  in  the  data.  Consequently, 
ng  was  set  equal  to  1,  and  does  not  now  appear  in  the  model.  A con- 
sequence of  these  changes  in  T and  ng  is  that  the  derivation  of  the 
current  WSEG  model  is  entirely  independent  of  assumptions  regarding 
particle  sizes  or  settling  rates. 

Before  g(t)  is  used  in  tha  RM-10  or  in  the  current  version 
of  the  model,  it  is  changed  from  a "time"  to  a "distance"  function,  as 
follows:  During  the  derivation  of  g(t),  the  fraction  of  cloud' activity 

landing  is  expressed  per  unit  time,  as  a function  of  time  after  burst. 

In  the  g(t)  function  actually  in  the  model,  the  fraction  landing  is 
expressed  per  unit  distance,  as  a function  of  distance  from  GZ  along 
the  hotline  (the  hotline  in  this  case  extending  both  upwind  and  down- 
wind of  GZ).  The  following  is  the  g(t)  function  in  the  current  model; 
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where  OlVD,  n,  and  L are  as  defined  in  detail  under  Transportf  below. 


It  may  be  noted  here  that  since  Lis  aoproxlmatelv  the  down- 
wind distance  (D'/rt))  given  by  EFW  • T,  and  t = DlVD/EFW,  then  DWD/L  » 
D’lVD/EFW  *Tisr  t/T.  The  use  of  L instead  of  T in  the  denominator  of  the 
expression  for  g(t)  provides  the  "per  unit  distance"  instead  of  the 
"per  unit  time"  in  this  function.  The  dimensionless  parameter  n is 
intended  to  provide  a smooth  transition  to  a symmetrical  upwind  versus 
downwind  pattern  as  EFW— ^0.  In  the  current  version  of  the  model, 
n *1,  except  when  EFW  — *0. 


3.  Wi nds.  This  model  uses  a one-vector  effective  fallout 
wind  (EFW)  in  mph  that  represents  the  mean  horizontal  wind  between  Hg 
and  the  ground,  and  a crosswind  shear  (Sg)  in  mph  per  kft  of  cloud 
thickness.  The  latter  represents  the  change  in  the  wind  components 
normal  to  the  EFV/  over  the  vertical  extent  of  the  cloud  (from  Hg  - 2*0h 
to  Hg  ■*2d\i)  divided  by  the  vertical  thickness  of  the  cloud  (4  (5}^). 

The  EFW  and  the  Sg  are  constant  in  time  and  space  for  each  burst. 

A downwind  shear  (S^j)  is  used  in  the  RM-10  version  of  the 
model.  It  was  subsequently  set  equal  to  zero;  that  is,  Sd  is  omitted 
in  the  current  model,  since  for  typical  values  of  EFW,  it  produced 
negligible  effects,  and  as  EFW  -*  0,  it  erroneously  increased  the  areas 
within  the  exposure  rate  contours. 


4.  Transport.  The  ideal  plane  exposure  rate  normalized  to 
lfi-1  hours  (Da)  can  be  computed  for  any  point  (DWD,  CWD)  on  the  ground 
as  the  product  of  a downwind  transport  function  (fj)  and  a crosswind 
transport  function  (fc)« 

DR  (roentgens/hour)  = fd’fc 


♦Although  r is  not  in  the  program  for  the  current  version  of  the  model. 


it  is  included  in  this  expression  because  WSEG  for  the  past  five  to  six 
years  has  applied  a factor  of  5/6  to  the  exposure  rate  and  the  accumulated 
exposure  outputs  of  this  program.  In  effect,  this  changes  T from  1 to  5/6. 
(Pugh,  G.E. , personal  communication,  26  April  1966.) 


l 


and 

W = the  total  yield  in  KT 

NF  = the  normalization  factor,  NF  = 2400  r/hr  per  KT/sq.  st.  mile 

F = the  fission-to-total-yield  ratio 

g(t)  = the  fraction  of  cloud  activity  landing  per  unit  distance 
as  a function  of  distance  from  GZ  along  the  hotline 
(discussed  under  Particle  Settling  Rates) 

^ = the  standard  cumulative  normal  function.  It  serves  to 
provide  some  upwind  fallout  from  the  pre-stabilized  cloud 
and  to  avoid  a discontinuity  at  DV®  = 0. 

Lq  = the  distance  (in  st.  mi.)  a particle  moves  downwind  with 
the  effective  fallout  wind  EFW  during  the  characteristic 
time  T 

Lq  = EFW*T 

L = a modified  form  of  Lq,  The  use  of  L instead  of  Lq  in  some 
parts  of  the  downwind  transport  equation  permits  a more 
consistent  mathematical  treatment  of  the  effect  of  the 
downwind  extent  of  the  stabilized  cloud. 

' L = (Lq*  2 0^2)1/2 

DWO  = downwind  distance  (in  st.  Mi,),  positive  in  the  direction 
of  EFW,  negative  in  the  opposite  direction 

OrVD  = the  crosswind  distance  (in  st.  mi.),  positive  in  the 

direction  90“  clockwise  from  EFW,  negative  in  the  direction 
90“  counterclockwise  from  EFW 


-<1 


1 


= an  empirical  adjustment  in  fjj  to  reduce  the  area  covered 
by  fallout  prior  to  cloud  stabilization,  reflecting  (l) 
the  small  size  of  the  cloud  at 'early  times  and  (2)  the 
tendency  for  the  toroidal  circulation  in  the  cloud  to  sweep 


particles  Inward. 


\ 


equivalent  of  in  the  crosswind  transport  fv:-'- -tion. 
The  factor  (l  - 0 (2  DV,X/EFW))  serves  to  phase  at 
about  the  end  of  2 hours. 
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5.2.3 


\ 


o<2  = 


1 f 


0.001 


Hc-EFW  (^\  d (2»D/;dT' 

r.  I I EFW  Ij 


'0  IT 

n = a dimensionless  parameter  in  the  g(t)  "distance"  function 
that  provides  a transition  to  a symmetrical  upwind  versus 
downwind  pattern  as  EFW — *0.  In  the  current  versiont 


r 

^0 


Ou  and  O'g  = parameters  relating  to  the  upwind  and  crosswind 
spread  of  the  pattern,  respectively 

(j,  2 = <^o^  ^ 


/ 


■'0 

■/ 


”o^  r 


.IlMD  V 20;,  I 0-Q^  ) ,J(S^-  T-Oh-Sc 


DVfl>20'i 


L 7 ^ J-  ' 

■v)x.:T-a^-sc>  2-tfj  j 

i.'**  \ ^ ^ 


s always  3 


Output  Submodel 


1.  Summing.  The  exposure  rate  at  and  the  accumulated  exposure 
by  any  time  after  an  average  time  of  arrival  of  fallout  are  based  on  the 
t“1.2  rule.  The  average  time  of  arrival  of  fall  is  computed  from  the 
following  expression.  /«^ 


/ ^ 'L 

Tg(hours)  = ^0.25  •»;  ^ 


^ (Dm  + 2(Tu)^  f 


z ! 


2-Cfu‘ 


1/2 


(Lq2  ^ 0.5-CTu^)/  Lo“ 


O.SCTu' 


The  following  approximation  is  used 'to  compute  the  maximum 
effective  biological  exposure.  It  is  based  on  10^  of  the  exposure  causing 
irreparable  damage,  and  a 30-day  time-constant  for  the  reparable  portion. 

ERD  = BIO  DR.  , , • / I 

— / T-  1 . I ' 

where  BIO  = exp  - 0.287  + 0.52 

^ ; T 

+ 0.04475  logej  " 


_^)2 

31.6) 

The  above  expression  for  BIO  is  a higher-order  fit  to  the  same  data  to  which 
(19/Ta)v3,  the  RM-10  equivalent,  is  a lower-order  fit. 

2.  Contours.  Contours  can  be  constructed  as  follows^  An~ 
exposure  rate  (or  exposure)  value  and  a set  of  DWD' s are  selected  for 
input  to  the  program.  The  program  will  then  compute  the  corresponding 
CAD' s. 
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c 


30 


135 


40 


45 


c NEVUNS  Standard. 

C last  revision  on  OCT.  27.  1972. 

c To  Compute  the  yielo  oepenOEnT  parameters  in  the  msEG  i/-nA9 

C fallout  mOofL.  yield  is  yield  in  MEOaTONS.  FlSS  is  fission 

c fraction,  hob  is  height  of  burst  In  fect*  arry  is  an  arry  of  Forty 

c elements  Used  to  preserve  results  qF  different  subroutine  calls. 

C subroutines  should  be  called  in  order  of  Neh  yielo.  wind  velocity 

C OR  MINO  SHEARf  OOWNMIND  OISTANCEt  aNO  CROSSMINO  DISTANCE. 

C THE  VALUES  IN  ARRY(l)  TO  ARRY(6)  ApE  FfLLEO  HERE. 


COMMON/FLHSEn/VlELO,FlSS,HOBtEFWtSctOMotHOCALtTHPN,CHO,ARHY(40i 

XLNY  ■ ALOOcyIELO) 

TEMaXLNY«S.4 

TEMP-0 . To *0 .3333333*  XLNY-3 .25/ (4 . o * TEh*TEm ) 

ARRY  (ll  ■ EXP (TEMP) 

ARRY(2)  ■ ARRY(l)  •ARRY(l) 

. TEMP  ■ XL'^Y  *2.42 

ARRY  (3)  ■ 44.*  6.1*XLNY  .0.20S*TEhP*AbS(TeMP) 

ARRY(4)  • 0.18*ARRY(3) 

HCTFo  ■ Arry(3)/25. 

HCSIX  ■ aRRY(3)/60. 

ARRY(5)ai*0573203*(12**MCSlX-2.5*HcSlX#HCSlX)*(1.0-0.5*EXP(»HCfVO* 

IHCTMOn 

C HEIGHT  OF  BURST  SENSITIVE  CALCULATIONS 

C hob  ■ 0*  bypasses  HOB  CALCULATION  aNO  aLLOMS  OUTSIDE  CONTHOl. 
IF(H08  «GT.  n.)  GO  TO  S 
ARRY<6)  ■ 2ooOOOO**EISS*YIELO 
RETURN 

5 CONTINUE 

XMHBaie0.*(YiELO*1000.)**6.4 
IF(H0B.LE>XMHB)  go  to  lO 
ARRY(6)"0« 

return 

10  CONTINUE 

TEMPaHOB/XHHR 

AF»0.5*<i.-TFMP)*(l.»TeMP)*(2.*TEMP)*0,001*TEMP 

c FlSS  ■ 1 Allows  outside  control  of  fissIon  fraction 

ARRY (6) "2000600. *FtSS*4F*YIELO 

RETURN 
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SUBAOUTInE  EaUWB 

C NEVUNS  standard. 

C last  revision  on  OCT,  27,  1972. 

C TO  COMPUTE  the  HIND  SPEED  OR  VINO  SMEAp  EFpECTS  IS  ThE  MSEO  l6- 

c nas  fallout  model. 

C EFV  is  vino  velocity  In  statute  miles  per  hour,  sc  is  vino  shear 

c IN  statute  miles  per  hour  per  KIlOeOOT,  ARry  is  a storage  array. 

C THE  values  In  ARRY<7)  To  ARRY (18)  ARE  SUPPLIED  MERE. 

COMMON/FLVSE6/VIELO»FISS,HOH.EFM,SctOVDtMDCAL*TVPN,CWD,4R«Y(40) 

XLO  ■ EFV*4RRY«5» 

XLOS  ■ XlO*xlO 

SI6US»aRRV(2)»<XL0S»8.«ARRY(2> )/(XlOS*2.»ARRY(2>  > 

ARRY<14)  ■ SORTISISUS) 

XLS  ■ XLOS  ♦ 2.ASIGUS 
XL  • SORTIXLS) 

ARRY (15)  • A. /XL 
ARRY(7)»ARRY(15)*ARRY(2> 

TMPA  ■ ARRY(S)*ARRY(4)*SC 
temp  a XlO*tmPA/XLS 
ARRY (8)  a TEMPVTEMP 

TEMP  a ARRY(t*)  VARRYISIAARRYCAIVSC/XL 
ARRY (9)  a ARRY (2)  ♦2,«TEMpaTEMP 
XLQPS  a XLOS  ♦ 0.5*SI6US 
ARRY (10)  a (XLOS  * SlGUS)/XLOPs 
lF(ARRY(iO),LT. 1.002)  GO  To  8 
TM  a 1./ARRY(10> 

C gamma  function  approx  HASTINGS  P.)56 

GAMMAal.  *TM4 (-0.57669867  » TM* (0 .9T78i7ei .TM* ( -0 .8235627* Tm# ( 
10.67399080  ♦ TM* (-0.3282793  * Tm*0. 07673206) >>) ) 

ARR Y ( I 1 ) a I . / ( XL*0AMMA ) 

GO  TO  9 

8 ARRY(U)al./XL 

9 continue 

ARRY(17)  ■ 0,001*ARRY(3)*EFW/ARRY()) 

ALONE  a l./(l.  ♦ ARRY(17)> 

ARRY  (18)  ■ XLO-'  <XL*ALonE*ARRY(14)  ) 

ARRY(12)  a XLOS  *ARRY(5)  aARRY (5) / « XLS*XLOPS) 

ARRY < 13)  ■ 0.25  ♦ 2.*SIGUS/XL0PS 
1F(EFw.Lt. 0.000001)  GO  To  5 
ARRY(16)  ■ 2./EFV 
GO  TO  6 

5 ARRY (16) *999999999. 

6 continue 
return 
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subroutine  FaLLOB 

c NcvuNs  Standard, 

C last  revision  on  OCT,  27,  1972» 

c TO  compute  oownnino  distance  effects  In  the  nseo  lo  • NAS  Fallout 

C MOOELt 

C OHO  IS  THE  onWNHINO  DISTANCE  IN  STaTUT^  MiLESt  HOCaL  > q-OhlY 
C USED  BIO  OoSEt  1-NmCSSC  BIO  DOSE  aT  BHRSt  2»ALS0  MAX  DoSEt 

C THPN  is  flHE  OF  WEAPON  DETONATION  IN  HOUpS,  ARpY  Is  A STORAGE 

c array, 

C THE  VALUES  IN  ARRY(20)  TO  ARRYOD  ARE  COMPUTED  HERE, 
dimension  BHRS(S) 

COMMON/FLHSEG/YIELOtFlSStHOR'EFWtSctOHOtMOCALtTHPN.CWDiARRYlAOl 
DATA  BHRSd)  ,BHRS(2) « BHPSO)«  BHRS(4),  BHpS(5)/ 
i 7.«22.«  68.,  211*t  Boo./ 

TP«0H0*2,*ARPY(14) 

OWPaABS(TP) 

TMP  ■ ARrY(i5)  *0HP 
IFITMP.LEO.)  60  TO  B 
0HPa3«/ARHY(lS) 
a CONTINUE 

'-SIGCS  ■ ARRY19}  ♦ ARRYIT)  *0HP  * aRRY (B) *TP*Tp 
SIOC  ■ SQRT(SIOCS) 

TA  a ARRy(16)*0HO 
IF<TA.GT,4.)  go  to  11 
C approx  HASTINGS  P*l85  FOR  CUM  NOR 
TM  a A8S(TA/i, 414213562) 

TMP  a 1.  ♦ TMafO*278393*TM*(O.Z3O389*TM*(O.OOO972*TMaO,O7NlO0> ) ) 

TMP  a TMp  *tmp 

CUP  ■ l.-li/<TMP*TMP) 

IF<TA  ,Lf«  0.)GO  TO  A 
-CUV  a 0.5*  U.  ♦ CUP) 

GO  TO  7 

6 CONTINUE 

CUV  a r..5*(l.  - CUP) 

7 CONTINUE 

ALTHO  a l./(i,*ARRY<17)»(l,-CUV) ) 

GO  TO  12 

11  ALTNOal. 

12  CONTINUE 

ARRY(20)al,/(2.50663*SlGC) 

TMP  a AlTwo  VSIGC 
ARRY(21>  ■ 0.5/<TMP«TMP) 

TA  a OHD  npRYIlS) 

IF<TA,LT,5.)  go  to  14 
CUVal, 

GO  TO  1 5 
14  CONTINUE 

C approx  HASTINGS  P.1B7  FOR  CUM  NOR, 

TM  a ABS(TA/i, 414213562) 

TMP  ai,*TMa<o,07052307B4*TM*»0,0422B20i23*TM*<Ot0092705272«TM* 


1. 


••••  UNCLASSIFIED  TI-177  in/27/72 


PAGE  NO,  6000)7 


7r 


10/27/72 


u 


••••  UNCLASSIFIED  •••• 
subroutine  fallos 


PAOE  NO*  000010 
COC  6400  FTn  V3.0-P241  0PT«T 


o 


1 

«s 


70 


75 


o 


^85 


i (O.OOO152OU3*TM««O,OOo2765672*TM»o.OOoOA3o630) ) ) ) ) 

tmp«tmp*tmp 

tmp«Tmp*tnp 

TMP«TmP*TMP 

TmP«TmP«TMP 

CUP*  I.-1«/TMP 

IF(TA  .LT*  n.)60  TO  21 

CUV  ■ o«5*fi.  ♦ CUP) 

00  TO  22 

21  CONTINUE 

CUV  ■ 0.5*O.  - CUP) 

22  CONTINUE 
15  continue 

IF(ARRVdO)  .lT. 1.002)  GO  TO  17 
TMP  ■«AeS(OWO)»ARRY(l5)/8.)»**RRT(lo) 

00  TO  18 

17  TMpaAas(0**0)«ARRy(  15)/0. 

10  CONTINUE 

IF<TMP.LT«30,)  go  to  l9 

ARRY(22>  ■ 0. 

ARRY(23)  ■ 999999, 

ARRy(23>  ■ 999999, 
return 

19  continue 

OT  •4RRY(ll)«EXP(-TMP) 

ARRY(22>  ■ ARRY(6)»GT»CUV 

TMP  • ARrT(i3)  ♦ TP  • TP»ARRY(12) 

ARRY(23»  ■ SORT (TMP) 

TMP  a AL00(ARRY(23)/3I,6) 

ARRY(2A)a  EXP<«(0,2B7*0.52*TMP*o,04475*TMP*TmP) ) 

1F(M0CAL  ,NE.  0)  00  TO  31 

return 


90 


95 


loo 


iI05 


' o 

lu'6^ 


C NMCSSC  SIOac  dose  calculations 

31  continue 

TMP  a aRrY(23)**(>0,2) 

00  32  U a 1,5 
JST  a 24  ♦ J 
BT  a 8HRs<J)  - TMPN 
8TT  a BT  - ARRY(23) 

1F(8TT  ,gE,  o*>  30  TO  33 
ARRY(  JST>  a 0* 

00  TO  32 

33  CONTINUE 

ZZ  a 0.5  ♦ 4,5*EXP(-(0,o6061  * 0.06025*TMP) * (BTT) ) 
ARRY(JST)  «(TMP  - (0Ta*(-O.?)))aZZ 

32  continue 

IF(MOCAL  ,NE.  I)  SO  TO  34 

return 

34  continue 
TMP  a 0, 

00  35  K ■ 1,5 
KLK  a 24  ♦ K 

1F(  TMP  ,0t.  ARRT(KLK))  00  TO  35 
TMP  a ARRY(klK) 
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130 
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35 


36 


37 


39 


KVL  ■ KLk 
CONTINUE 

IF(KVL  <NE.  35)  GO  TO  36 
ARRV(30>  ■ ARRy(2S) 

ARRY(31>  ■ BHRS(l) 

GO  TO  3« 

CONTINUE 

IF (KVL  *nE.  39)  GO  TO  37 
ARRV(30>  ■ ARRY(29) 

ARRY(31)  ■ BHRS(S) 

GO  70  3’ 

CONTINUE 

YM  ■ ARRY(KVL  - I) 

YO  ■ ARRy(KVC) 

YP  ■ ARRY<KVL  ♦ D 

OELLT  ■ 0.3S*(AL0G(BHrS(5))  - ALOo (BHpS ( i ) ) ) 

TO  « «LOG(BhRS(KVL  • 24  )) 

OELP  • Yp  - YO 
OELM  • Yo  - YM 
OELSG  ■ oClp  • OELM 
OELYO  ■ 6«S4(0ELP  * OElM) 

07  ■ > 0ELY040ELLT/0ELS0 


XLT  ■ TO 

ARRY(31) 

ARRY(30> 

continue 

return 

END 


♦ OT 

■ EXP (XLT) 

■ YO  - 0»5*OELY040ELYo/OELSO 


o 
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SUBR0U7INE  FALLC8 

NCVUNS  S7AN0AR0. 

LAS7  revision  on  OCT.  27,  \«72. 

70  C0MFU7E  cROSSHINO  DISTANCE  EFFEcTS  pOR  7HE  WSEO  In  >naS 
FALLOUT  MOOCL  ANO  PRODUCE  FINAL  ANSHERS* 

CMO  1$  CROSSMlNO  distance  IN  STaTUtE  MILES,  MOCAL  OF  0«ONLV  mSfO 
BIO  OOSE,  1.NMCSSC  TINE  DOSES,  2>Ai'S0  MAX  DOSE,  ARR7  IS  A SIORaSE 
array, 

FOR  OUTPUT  tmE  H * I DOSE  RATE  IS  fN  AqRV(32),  7HE  /^SEO 
BIOLOOICAL  oOSE  IS  IN  aRRVI33>*  TNe  TImE  OF  FALLOUT  ARRIVAL 
after  AEaRON  burst  time  is  in  ARRV(23>. 

the  NMCSsC  RIO  OOsE  AFtEr  7,22,68,911,  ANO  800  HOURS  ^ROM  TmE 
S7RA7  OF  [he  time  AXIS  IS  IN  ARRVOA)  TO  ARRYOS).  ThE  MAX 

biological  dose  is  in  ARRY(39>  AND  The  time  of  max  OOSE  after 
TIME  ORIGIN  IS  IN  ARRYOl), 

THE  VALUES  IN  ARRY02)  TO  ARRY(39)  ARE  COMPUTED  HERE. 


COMHON/FLMSEG/YIELO, FISS*hOR*CFh,Sc«OHO, MOCAL, TPFN.CmO, ARMY (40) 

TMP  ■ CKO  ♦ aRRY<21)*CmO 
IFUMP  .QT,  36, > GO  70  6 
FC  • ARRY«20»  •EXP<»TMP) 

ARRY  (32)  • FCAARRY(22) 

C0N71NUE 

ARRY(33)«  AR0Y(32)*ARHV(24) 

1F(  MOCAl  ,nE.  0)  60  To  3 
return 

NMCSSC  SIOaC  OOSE  CALCULATIONS 
CONTINUE 
DO  A J • l.S 

ARRY(J  ♦ 33)  • ARRY<32)*ARRr(J  . 94) 

A continue 

1F(M0CAL  ,NE.  1)  60  TO  5 
RETURN 

5 continue 

ARRY<39)  • ARRY(30)*ARRY<32) 

RETURN 

6 continue 

AR9Y<32)  • 0, 

00  TO  7 
END 
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Subroutines 


FALL  YQ^pec/e 
FALL  WQ  # i.ij 
FALL 

FALL  CQ  (becM.  *-*i) 


A.  General 

These  subroutines  represent  a fit  to  the  results  of  the  WSEG 
10/NAS  Biological  Dose  calculations.  They  are  used  in  a fashion 
identical  to  the  basic  subroutine  except  that  the  parameters  MDCAL 
and  TWPC  are  dummy  parameters  since  only  the  WSEG  Biological  Dose 
is  calculated.  Ti«*s"They  are  called  in  order  to  calculate  para- 
meters dpendent  on  yield,  fission  fraction^  and  height  of  burst, 
on  fallout  wind  and  shear,  on  downwind  distance,  and  on  crosswind 
distance.  The  most  effort  rn  fit«4Af  is  for  appreciable  downwind 
distances  and  wind  velocities,  where^i  error's  about  25  per- 

cent.Near  ground  zero  the  calculations  are  more  complex 
and  greater  errors  may  occur.  The  range  of  the  fit  made  is 
generally  for  yields  from  0.2  to  30  MT,  winds  from  0 to  80  mph, 
and  shear  from  0 to  1.6. 

The  results  are  given  in  element  13  of  the  array  ARRYFW  which 
appears  in  the  common  block  FLWSEG. 

B.  Requirements  on  Calling  Program 

The  requirements  on  the  calling  program  are  the  same  as  with 
the  regular  WSEG  10/NAS  subroutines.  The  calling  program  is  re- 
quired to  manage  the  block  common  FLWSEG  and  insure  the  proper 
data  are  in  the  array  FLWSEG. 

C.  Algorithm  Implemented 

The  prime  fit  in  for  values  of  wind  greater  than  3 mph  and  op 
scaled  distance  x (downwind  distance/wind  velocity  greater  than  3) . 
A look  at  the  WSEG  model  for  large  values  of  scaled  distance 
suggests  that  the  downwind  dose  factor  Fd  can  be  approximated 
by  an  equation  of  the  form 


log^Q(Fd)  =T(a  + FQWSEG(11)J 

for  X < 15.6,  A correction  factor  equal  to  .0015(x-15.6)  has 
empirically  been  added  to  logj^^CFd). 

The  parameter  a is  given  by 


a « aY  + owj*  FQWSEG(8)J^ 


where  aY  « 5.495  - 0.1099  log^^CYield) 


0.018[log^Q(Yield)]^p  FQWSEG(l)y^^ 


aW  * -0.995  logj^Q(W)  where  W * wind  speed. 


6 is  given  by 


= -0.0641  + .0139  • log.n(Yield) 


0.0033(log^Q(Yield)) 


FAC  is  computed  exactly  as  in  subroutine  FALLYB  * FQWSEG(5)/ 


The  Biological  Dose  is  given  by 


D = F^  • F 


^ • FAC  [=  FQWSEG(13)^^ 


Fc  = 


/2tt  a 


e c 


c is  crosswind  distance. 
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Again',  “Xispection  of  the  basic  model  suggests  is  a linear 
function  of  x. 

We  have  o n 

where 

S„  is  the  shear 
c * 

D is  the  downwind  distance^ 

A = 2 + 1.7309  log^Q(Yield)  + 1 . 2691  (log^^  (Yield) ) FQWSEG  C^)J 

B = 7,55  + 1.8714  log^gCYield)  - 0 . 3314  (log^Q  (Yield) ) ^ *^QWSEG(4)J. 

It  may  be  noticed  that  yield  dependent  parameters  in  and 
0^  are  filled  by  a quadratic  function  of  the  yield.  This  fit  is 
applicable  from  somewhat  under  1 MT  to  30  MT. 

For  scaled  distances  less  than  1 but  winds  greater  than  3 mph 
the  fit  is  in  two  parts. 

Let  K = 2 - log  (Yield) 

6 - 3 + 5.6  log^Q(W/20) 

Lj^  = 3.355  - ,386  logjQ(W/20)  - 0.275  + 0.448(K-1) 

If  D > K6  then  F,  = 2iro  ♦ L..v 

d c MX 

JTf  D < K6  then  F^  - - 0.169(D  - 6K)^ 

The  calculation  for  F^,  FAC,  and  remain^  the  same. 

If  the  wind  speed  is  less  than  3 mph,  the  following  is  used 

to  calculate  Fj  and 

a c 


a 


c 


+ ObD 


u 
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where 


= 3.14  + 0.51-Yield  - (0.33  + 0.03-Yield)W 
+ [42.35  - (19.0975  + 0.9225  • Yield)W] 

+ [49  - (27.35  + 1.15-Yield)W]  FQWSEG(18)2^ 

Og  = (3.611  + 0.039-Yield)  FQWSEG(19)J  . 

If  D >0  then 

l“SlO  I'd  - A,  * D * 

wh©r© 

Ag  = (4.545  - 0.745-Yield)  + (0.1222  + 0 . 0078 -Yield) (1-W,  ’) 

- (1.2223  + 0.0278-Yield) 

B = -0.06486  + 0.00316-Yield 
s 

Cg  = (0.2444  - 0.0244-Yield)-(0.8977  + 0 . 1323 -Yield) 

(l-W/2) -10'^ 

The  fits  for  A^,  and  are  strictly  empirical. 

\F  1X0  ~nf(s/^ 

^ .txv/  - ./5-Sc 


uu  u uu u uu uu u u u u uuu uuo o 
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NEVUNS  STANOAROIZEO 
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A RAPID  VERSION  OF  THE  MSEO  10  FALLOUT  MODEL  BAStO  UPON  FITS 
TO  CALCULATED  DOSES  RESULTS  ARE  STORED  IN  THE  ARRAv  OARRV  . THE 
BASIC  ARRAV  VARIABLES  ARE 

1.. .VIELO  OEPENOENT  ALPHA  FACTOR  IN  FO 

2.. .VIELO  dependent  BETA  FACTOR  IN  FO 

3. . .A  IN  Side  Calculation 

A. ..B  IN  Side  calculation 

5.. . FINAL  HOB  FACTOR 

6. . .1.  0 variables  in  INTERPOLATION  RANGE*  IF  1 IHEV  ARE  NOT. 

7.. . VALUE  OF  MINO 

B. .. ALPHA  FACTOR  IN  FO 

9.. .5.EAR/HIN0 
10 • . .2 • SldC.SIdC 

11. . .FO 

12.. . (1/<$0RT<2.PI)SIGC) ) .FO 

13.. .HSEG  BIOLOGICAL  OOSE 

14  • 19  ..  USED  IN  SMALL  HINO  OR  DISTANCE  CALCULAUONS 
CALLING  SEQUENCE  IS  SAME  AS  WITH  THE  REGULAR  MODEL  EXCEPT  FOR 
NMCSSC  OOSE  OPTION 

C VIELO  OEPENOENT  CALCULATIONS 


COMMON/FLHSEO/VlELO*FlSS*HOS*EFW.SCtOWO*ZILCHA*ZlLCHB*CHD* 
1 OARRV (40) 

0ARRv(14l  ■ VIELO 
0ARRv(6l  ■ 0. 

IF(  VIELO  .LT.  0.1  .OR.  VlELO  .OT.  30.)  0ARRV(6)  ■ 1. 

XLNV  ■ ALOdl0<VlELOl 
THP  ■ XLNV«XLNV 

OARRV(l)  ■ S.49S«  0.1099«XLNV  ♦ 0.0l8*TMP 
OARRV (2)  ■•0.0041  * 0«0l39*XLNV  • o.0033*TMP 
0ARRV<3)  • 2.  ♦ 1.7309»XLNV  ♦ 1.2691»TmP 
OARRV (4)  ■ 7.53  ♦ 1.87l4**LNV  - o.3314*TMp 
OARRV(S)  ■ FISS 

C HEIGHT  OF  burst  CALCULATIONS 

IF (HOB  .OT.  0.)  GO  TO  5 
RETURN 

5 CONTINUE 

XMHB«lB0.*(VIELO»1000.)«»0.4 
IF(HOB.LE.XMHB)  go  to  Iff 
OARRv(S)'*  0* 

RETURN 
lO  CONTINUE 

TEMPaHOB/XMHB 

AF«0.5*(I.-TEMP»«(1,-TEMP)*<2.*TENP)*0.001*TEMP 
OARRV(S)  ■ FISS  • AF 
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SUBROUTINE  FALLMQ 
C NEVUNS  standardized 

c LAST  Revised  nov.  2.  i9T2 

c WIND  DEPENDENT  CALCULATIONS 

CONMON/FLWSEB/YIELO.FISS.HOa.EFW.SCfDHOfZILCHAfZlLCNB.CWD* 
1 QARRY(40) 


QARRV(7I  ■ 
ifiefw.lt. 
QARRY(9i  * 
OARRY(SI  ■ 
return 
CONTINUE 
QARRY(9)  ■ 
CARRY (6)  ■ 
WHS  ■ 1.  - 
QARRY(lSI 
1 QARRY(14| 
QARRY(16i 
QARRYdTIa 
1 4WMS  )A0, 
QARRYdBl 

1 * (42,35* 

2 ♦ <69,  ♦ 
QARRYdOl 
RETURN 
END 


EFW 

3.1  60  TO  5 
SC/EFW 

QARRY(l)  • o.99S*AL06io(EFW) 


SC 

2, 

0.5«EFW 

■ (4.545  - 0.0745«QARRY<14) ) ♦ (O.IZZZ  * 0.0078« 

>«WHS  • (1.22ZZ  * 0*02l8*QARRYd4)  ) *SC 

■ •0*06486  * 0*003l6«QARRYd4> 

( 0,2444  • 0.02A44*QARRYd4)  >(0,8977*  0,1323*QARRY d4> ) 
001 

■ 3,14  * 0,514QARRY(14)  • (0,33*  0,03*QARRY ( 14) ) *EFW 
(-19,0975  * 0.9225*QARRY(14))*EFW)*SC 

(-27,35  * 1,15  *04997(14) )*EFW)*SC*SC 

■ (3,611  * 0.039*QARRY(14)  )*SC 


■ 5 

-5 


;l 

i 
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10 


C NEVUNS  standardized 

C LAST  REVISED  NOV.  2t  1972 

C OOUNWINO  DISTANCE  dependent  CALCULATIONS 

CONMON/FLHSEO/VIELO.FISS.HOB.EFWtSC.OHOtZlLCHAtZlLCHB.CWOi 
1 OARRY(40)  t. 

OARRV(T)  .LT.  /,»  00  TO  20 

XSCl  ■ ONO/OARRV(7t 

Sloe  a OARRVOt  * QARRY  (4)  aCARRY  (9)  aOHO 
IF(XSCL  .LT  . 1.)  00  TO  5 


IS 


20 


35 


40 


45 


I 


C normal  wind  speed  and  distance  fit 

XLOFO  a OARRYlSt  * QARRY (2) «XSCL 
C TUSE  SUPRESSES  THE  SIOC  FACTOR  ON  FO  FOR  FITS  At  SMALL 

c distances  or  ldm  MInO  speeds  which  were  directly  on  dose. 

TUSE  a 2.5066»SIOC 
IF(XSCL  .OT.  15.6)  00  TO  1q 
C CORRECTION  FOR  SCALED  DISTANCES  UNDER  lS.6. 

TMP  a XSCL  • 15.6 

XLOFO  a XLOFO  ♦ O.Oo15»TMP«TMP 

10  continue 

OARRY(IO)  a 2.«S16C#SIGC 

IF(  XLOFO  .LT.  -8.)  XLOFO  a 'S. 

OARRY(ll)  a OARRY(S)  • 10.«*XLOFO*OARRY ( 14) 

oarry(i2)  • oarry(h)/tuse 
return 

C FIT  FOR  SMALL  DISTANCES  ANO  NORMAL  WINO  SPEEDS. 

5 CONTINUE 

XLW  a AL0G10(QARRY(7)/20.) 

OELTN  a 3.  ♦ 5.6*XLW 

fact  as,.  AL0010(OARRY(14) ) 

delta  a OELTN»FaCT 

XLOMXN  a 3,355  . 0.386«XLW  - 0,275«OARRY (9) /CARRY (7) 

XlOMX  a XLOMXN  « 0,448a (FACT  • 1,) 

OWOS  a OWOaFACT 

IF  ( OWOS  ,LT,  DELTA)  00  To  6 

XLOFO  a XLOMX 

TUSE  a 1, 

00  TO  10 

6 CONTINUE 

XLOFO  a XLOMX-  (OWOS-OELTA)a(OWOS-OELTA)ao,0169 
GO  TO  10^  ’Tt/ 


50 


C FIT  FOR  LOW  WIND  SPEEDS. 

20  CONTINUE 

IF(  OWO  .OT.O.  )00  TO  21 

c distance  less  Than  zero 

XLY  a AL0010(OARRY(14)) 

XLOMX  a 4.35  - 0»56aXLY  - 0. 12«OARRY (7 ) -0 .15«0ARBY ( 9).  , 

BOT  a 67.  • 257. baLOOIO (CARRY ( 14 ) ) 

OUSE  a 0.5aOARRv(7)  » OWO 
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XLQFO  ■ XLOMX  • OUSC*OUSE/aOT 
GO  TO  22 

C DISTANCE  GREATER  THAN  ZERO 

21  CONTINUE 

XLGFO  ■ GARRYdSt  * QARRY (16) •DUO  * OARRY ( 17) •0UU«0U0 
tP(QARRY(i7t  .CT.  i.C-8)  Go  TO  22 
BETA  ■ -I>.*QARRY(l6)/(2.*QARRY(l7n 
1P(  OHO  .GT«  BETA)  XLGFO  • -B. 

22  CONTINUE 

SIGC  ■ CARRY (18)  * QARRYl 19) •DUD 
TUSC  ■ 1. 

GO  TO  10 
ENO 


I 

I 

I 


i 

] 

\ 
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SUBROUTINE  FALLCQ 

c nevuns  standardized 

C LAST  REVISED  NOV.  2.  1972 

c cRossHiNo  distance  dependent  calculations 

COHMON/FLHSEO/riELD.FISS.HOB.EFH.SC.DMDfZILCHA.ZILCHBtCHDt 
1 aARRY(40) 

TMP  ■ CHO«CHO/OARRV(10) 

IF(TMP  .OT.lO.)  TMP  ■ lO. 

0ARRY(13)  « QARRy«l2)*EXPt-TMP) 

RETURN 

END 


i1 


i 


f 


r. 
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SUBROUTINE  CFALLY(Deck  #211) 


A.  GENERAL 

This  subroutine  and  CFALWD  give  the  cluster  model  for 
fallout.  It  is  used  to  determine  overall  fallout  dose  from  a 
group  of  weapons  closely  spaced.  It  is  based  on  WSEG-10  model 
and  uses  the  equations  given  in  P-IO65  "Methodology  of  Fallout 
Risk  Assessment."  This  subroutine  computes  yield-dependent 
parameters  and  stores  them  in  the  array  STR(5).  The  subroutine 
CFALWD  uses,  in  addition,  the  wind,  wind  shear,  downwind 
distance,  and  crosswind  distance  to  compute  the  maximum. 


B.  REQUIREMENTS  ON  CALLING  PROGRAM 

Communication  is  through  the  block  common  /CLFLPR/.  The 

parameters  of  Interest  to  this  subprogram  are 

Input:  YIELD — weapon  yield  in  megatons 

FISS — Weapon  fission  fraction 

Output:  STR(5) — derived  values  used  as  input  to  subprogram 

CFALWD. 


C.  ALGORITHM  IMPLEMENTED 

Five  output  values  are  directly  computed, 

Then, 

STR(l)  = 7.5  + 1.66  log^pY 


STR(2)  = 2.71/STR(1) 


1.382 


STR(3)  = 2.  + 3 log^pY 
STR(4)  = 7.5  + 1.5  log^pY 
STR(5)  = 2 X 10^  X Y X FISS  . 


Call  Y the  yield, 
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SutJROUTINE:  CrALUf .. 


Calculates  fallout  doses  fro«  clusters  of  weapons  using  a 

i ■SlNgLElED_wS£.G_13  FALLQJiT- JOOELi 

XL  IS  The  half  length  of  the  cluster  in  the  downwind  direction 


fliRECTlON,  _ 


Own  Do*inwinO  OIBECTTONfCRS  ChoSSwInD  direction. 


stR(I)  is  Characteristic  time  t. 

itiuzj is.';>T-uTMv.i6a 

stR(3I  is  a uSco  rn  calculate  shear  sigha 

-aTBiA.L-!-S^-d-JJSEO_rQ,-CALCilLAItL-SHEA9_SIGHA__ 

StR(S)  TS  PPOUUrT  OF  yield  TTmES  FISSION  FRACTION  TIMES  K. 
ASSUM£S-g^rlEiGHl-aE_JjU8SI.  SQ  A-HX-SORMcnON  MijST  9E  EXTERNAL. 


COMMON/HLFLPH/YrELD.FISS.WINn.SHR *JL_. SJ_6W , OWN « CRS ,00SE , STR  ( 5 ) 


ALT  a Al_OGK  (YIfLOI 

— SIP-(  11  ■»  7^5-*-Lil&6aaLX- 

StP(2)  a 2«7i/(STR(, )**i.3821 

_ . STftiSL  .a-3»-T_S.-*ALl. 

StP(4)  a 7.5  * i.S*4t-T 
- -aTRtSL-a-j,^(j^yT-ELa<tms_ 
RETURN  * • 

EnO — 
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SUBROUTINE  CFALWD(Deck  #212) 


A.  GENERAL 

This  Is  the  second  subroutine,  following  CFALLY,  to 
Implement  the  cluster  fallout  model.  This  subroutine  has  as 
input  yield -dependent  parameters  computed  in  CFALLY,  wind  and 
distance,  and  outputs  the  WSEG-10  Biological  Dose. 

B.  REQUIREMENTS  ON  CALLING  PROGRAM 

Communication  is  through  the  common  block  /CFALWD/.  Parameters 
of  Interest  are • 

Input:  STR(5) — yield-dependent  parameters  which  must  be 

computed  by  a call  to  CFALLY 

WIND — wind  speed,  mph 

SHR — wind  shear,  mph/kllofoot 

XL — half  the  downwind  extent  of  the  cluster 

SIGW — the  crosswind  standard  devaltlon  of  the 
fission  yield  of  the  cluster  weapons 

DWN — downwind  distance,  miles 

CRR — crosswind  distance,  miles 

Output:  DOSE — computed  WSEQ-10  biological  dose 

C.  ALGORITHM  IMPLEMENTED 

The  calculations  are  a direct  implementation  of  the  equations 
in  IDA  Paper  P-IO65.  First  the  crosswind  shear  standard  devia- 
tion is  computed  as  SIGC  = STR(3)  + STR( 4 ) (DWN+XL)  • SHR/WIND. 

Now  a downwind  contribution  to  dose,  FD,  is  computed.  If  the 
downwind  distance  is  greater  than  cluster  distance  (DWN  > XL),  then: 
RAT  = DWN/(WIND  • STR(l)).  For  RAT  < 0.6,  an  explicit  calculation 
is  done  as  FD  = STR(2)  • exp (-RAT) /(WIND  • RAT'^®^).  For 
RAT  > 0.6  a polynomial  approximation  to  the  above  expression  Is 
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used  by  FD  = STR(2)/(WIND  • FAC  ) , where  FAC  = 0.85^19  + .^21  RAT 
-0.0019286  RAT^  + 0.00929  RAT^.  If  DWN  < -XL  the  dose  Is  set  to 
0 and  the  subprogram  exited.  Otherwise,  the  factor  FD  is  computed 
by  FD  = STR(2) (DWN+XL)  exp(-RAT)/(2  • WIND  • XL  • RAT°’^®^),  where 
RAT  = XL/(WIND/STR(1) ) . This  gives  a linear  buildup  of  dose  from 
the  upwind  edge  to  the  downwind  edge  of  the  cluster. 

Now  the  crosswind  factor,  PC,  is  computed.  For  long  distances 
(DWN  ^ 5 • SIGW) , a normal  distribution  is  used.  First  a standard 
deviation  is  computed  by 


SIGU  = VsiGC^+SIGW^  . 

Now  a value  TMP  is  computed  by 

TMP  = 0.5CRS^/SIGU^  . 

If  TMP  > 6 the  dose  is  set  to  0 and  the  subprogram  exited. 
Otherwise , 

FC  = exp (-TMP) /SIGU. 

For  close  distances  the  crosswind  dose  is  the  difference  between 
two  cumulative  normal  functions : 

CRSl  /2  SIGW\' 


■^umnor  ^ 


CRSi  , /2  SIGW\ 
SIGC  SIGC  / " 


cumnor 


0 

FC  = — — I cumnor 

/2  SIGWV 

Finally,  the  dose  is  computed  by 

DOSE  = STR(5)  • FD  • FC  . 


SIGC  SIGC 
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c For  heaFons  in  clusters 

c N DOES  BOtHVINO  OERCNOENTlkNO  DISTANCE  OCPENOEnT  CALCULATIONS. 

'I  ASSURES  cFALLT  haS  »EEN  CALLED  lO  FILL  STR 
c ' CLU«Y  RhiTlNO  USEO  TO'aTTEHFT  to  SPEED  CALCULATION, 

CONMpN/CLFLPR/nCLOVFTSSiH iNOf  SHR • XCf STOU  f OWN i CRS i DOSE • STR ( S) 


Page  no<  ooc 

/ 


1 C__ 


Jl«c  • STR<3>  ♦ STR<»)*<0>IN  * XL)*SHR/WInO 
IF<6wn  IttiXL)  00  To 

here  we  Are  6EVONO  the  cluster 


R*t  a oWN/<WiNn«STR<lH 
IF«R*T  •lT«  -0«*)  OO.TOjl 
IF<RAT.OT,6.»0o  To 


12 

C 

C 


*p  I I * RiU  ^ 

Use  polTnomiac  approxihation  hEre> 

FaC'"  0*Ws610  « RAT«(0.42r  « RAT*(>o;ool92S6  , RAT*0tO0O29) ) 
Fo'»'STfi^2t/*ilN0«fACS*FACS> 

CONTINUE  

'IF  (OWN  iLTrSt*SlGW5  GOirO  l5  ,,  „ ' 

Something  like  own^lt.  ts*  cqUlo  also  be  ^Se©  he«e 

'SfGUS  a SfGc*SIGC  ♦ SIGW*SIgW 

SiGUS  IS'SHR  SIGMA  mQOIFIEQ  FqR  CLUSTER  SlIE_F0R  OOWNMINO  APPrX. 

SiGU  ■ SoRtiSiausr 

- 

TCJ!  0«39a9»22e*EXP<»TMPt  /SIqU 

CoNTINUC 

00?E_«  STR(S>«PQWpc 

Return 


15  Continue 


C _ COMPUTE  CROSSWInO  FaCTOR  HERE  BY  DIFFERENCE  OF  TWO  CUMULATIVE 
C normals*  cUMNOR  approximation  direct  from  HASTINGS* 

R a l.AUaSiGW  

TmPI  ■ AeS(CRS)/SlOC 

TmP2  ■ P/SIO?" 

X a TMpl  ♦ TMP2 

Xxa  TmpL-_TMP2  _ 

If (XX  ,ST,  6.)  ,jo  To,” 


*91.  ;*»  (ju  'O-T" 

iF(x.lJ*:*»®i  GO. to  3* 
iFixx.lt***">  go  To 


3E 


33 

.31 


FCaO.O  

GO  TO 

continue.  

If(XX.gT*-4.0)  oO  To  33 

_fc«o,*/r  _ 

Go  TO 

CONTINUE  

CMN  lal.O 

_ cONTlwyt 

FaC  a 1.  « 

FaCs  ■ FAC 


X>(0.27a393*X*l0.2303G9ix*(o,oo972*X*  0*07ai0B)) ) 
• FAC 


Cmn^  • li  - 67S/(F*CS«FACs) 
IF (XX, lT *4,0)  gO_T^35 
CmN2"i. 

GO  TO  1?  _ 


••••  uNCLASsIFIEO  •••• 
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Continue 

IMXX.oT.-*,0)  ~00  TO  36  “ 

CM'<2a0.0 

Od  To  l7 

CONTINUC  

FAC  i®f]*J*x*(0.2T«393«x«(0.2*0>«?*X*j0. 00072.x*  0.07«I0d))j 

'FAts~g-rxC“*'FAC 

IfIxX.lI.  O.l  90  TO  I* 

CmN***  *.  S"?iS/<F*CS*FACSl 

00  TO  H 
CONTINOC 

CMN2  ■ 6«5/(FACS«FACS) 

Continue' 

FC_«  0«9*(CMNl  - CHN2)/H  

00  TO  I* 

CONTINUE  ■ 

USE  EXPLICIT  Calculation  raThcn  than  apfroxihaTion  belom 
Fo  • STR(2»  •EXPi-RAt)/i«lN6*RAT**0.3a2> 

00  T0±?___ : 


PAOE  no.  001 


continue 

mere  we* are  in_the  cluster  and  use  linear  Variation  of  fo  a>*ono  it 
IF<0NN  .OT.-XL)  do  TO  22 

URNINO  Of_CLUSTER 

continue 

_OOSE_?_0» 

Return 

continue 

RaT  * xC/(NINO*STRa)) 

lFiR*T»6T-0,0)  00  To  23 

FO  • STbUMJONn  ♦ XLl*EXpf»R*T>/Tt(tNO*?,*XL*R*T**0,3B2) 

00  TO  i! ^ ' 

EnO 
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SUBROUTINE  LSCRN  (^ecK 


A.  GENERAL 

This  subroutine  provides  the  maximum  distances  at  which 

fSAOK*/K«T\yv  PAu^ar 

certain/\doses  occur.  As  such,  it  can  be  considered  as  the 
inverse  of  the  WSEG-10  routines  FALLYB,  etc.,  which  compute 
doses  given  distance.  This  subroutine  is  intended  for  screening 
calculations  to  determine  the  limits  to  where  weapons  must  be 
considered  for  depositing  significant  dosage  upon  a target  area. 

For  this  reason  the  equations  are  rather  simple  since  speed  of 
calculation  is  competitive  in  importance  with  accuracy.  Nonethe- 
less, at  dose  levels  of  .1  to  10  R (based  on  a fission  fraction 
of  1)  and  wind  velocities  over  10  mph  the  error  in  distance 
calculation  is  usually  under  20  percent. 

The  subroutine  provides  maximum  downwind  distance  for  the 
specified  dose  level,  maximum  crosswind  distance,  downwind  distance 
at  which  the  maximum  crosswind  distance  occurs,  and  maximum  upwind 
distance.  These  are  given  in  elements  7,  8,  6,  and  9,  respectively, 
of  the  array  SCARY  in  the  common  block  used  to  communicate 

with  the  subroutine.  These  values  could  be  used  to  construct 
elliptical  contours  which  would  approximate  the  actual  contour 
shaped. 

B.  REQUIREMENTS  ON  CALLING  PROGRAM 

The  calling  program  is  responsible  for  managing  the  common 
block  fejSCRN  since  many  calls  may  be  made  on  this  subroutine  and 
such  management  may  reduce  calling  times.  These  values  to  be 
supplied  are: 

JDO  a control  parameter 

YLDS  weapon  yield  in  MT 

FISSS  weapon  fission  fraction  (may  be  larger  than 
one  to  represent  several  closely  located 
weapons) 

HOBS  weapon  height  of  burst  (ft) 

WDNS  fallout  wind  speed  (mph) 

SHRS  shear  in  mph/Kft 

DOSES  the  WSEG  biological  dose  in  rads  for  which 

distances  are  to  be  found 


1 
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If  the  parameter  JDO  is  negative  only  the  yield  dependent 
parameters  are  calculated  and  the  subroutine  is  exited.  If  the 
parameter  JDO  is  positive  it  is  assvimed  the  yield  dependent 
parameters  are  in  elements  1 and  2 of  the  array  SCARY  and  the 
calculation  proceeds.  The  calling  program  is  responsible  to 
insure  that  these  parameters  are  in  fact  supplied.  If  JDO  is 
one,  only  maximum  downwind  distance  is  supplied  in  element  7 of 
the  array  SCARY.  If  it  is  greater  than  one,  the  maximum  crosswind 
distance  is  also  supplied  in  element  8,  downwind  distance  maximum 
crosswind  distance  in  element  6,  and  maximum  upwind  distance  in 
element  9 of  the  array. 

The  elements  3,  4,  and  5 are  not  used  in  this  subroutine  in 
order  to  provide  compatibility  in  input  and  those  answers  in 
elements  7 to  9 between  this  subroutine  and  the  subroutine  RSCRN . 

C.  ALGORITHM  IMPLEMENTED 

The  dose  is  adjusted  for  height  of  burst  effects  by  the  same 
equations  as  in  the  subroutine  FALLYB,  since  the  fit  is  made  for 
height  of  burst  of  zero.  If  the  height  of  burst  is  above  the 
maximum  for  significant  effects,  distances  of  zero  are  returned. 

If  the  wind  is  less  than  2 mph  the  wind  is  forced  to  be  2 mph 
and  the  same  distances  are  used  upwind  as  downwind. 

For  doses  less  than  10  rad  the  maximum  downwind  distance  is 
computed  by 

D=W [Xq- 15 -A+(0. 55+0.75-3^+0.0075  W)A^] 
where 

W * wind  speed 

S = wind  shear 

c 

D * max  downwind  distance 

^ r60. 8516-36. 5944  S + 13.1363  S^^-14.8  log^^CW),  S^<1.3929 

^o  “ ^21.5659,  ^ , S^>1.3929 

A = logj^Q  (Dose) -logj^Q  (yield) 
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For  doses  above  10  rad  the  maximum  downwind  distance  is 
computed  by 

D - W[Xq-10*A+(1  + .75  + 0.0075W)A^3 

where 

is  limited  here  to  a maximum  value  o£  0.6 
c 

Xq  » 16.1  + 26.2(S^~0.6)^  - 8.1  lOg^^gCW) 

For  doses  less  than  100  rad  the  maximum  crosswind  distance 
is  computed  by 

C = 160S^’logj^g(10  yield)  • (2 . 2041-logj^Q (Dose) -1 . 18 (4-log (Jkosel 
' log^gCW/10))^. 

The  distance  of  maximum  crosswind  is  computed  by 

= (80+18.7-7.5  logjg  C^ose)-7.5'S^)W(1+0.75  log^^g (yield) ) . 

The  maximum  upwind  distance  is  given  by 

Du  * logj^g(lO-yield)  •(6.5-logj^Q(0ose)-1.25-logj^gW)  . 

For  doses  greater  than  100  we  have: 

For  maximum  crosswind  distance 

C * 2.5  logj^g(lO-yield)  (50-20  log^^g Oose/100) 

-(17.5  - 2.5  log^g (Dose/100)) log^g(W/10)) 

For  distance  of  maximum  crosswind  distance 

Dc  = ^ • {0.5  log^g(lO-yield) [130-60  log^g  (^ose/100) 

+ (500-250  log^g(Dose/100))'log^g(W/10^} 

For  maximum  upwind  distance 

Dy  » 2 + logj^Q  (10 -yield) 

In  some  cases  the  error  in  the  fit  may  give  negative  distances 
at  very  high  doses.  In  these  cases  the  distance  is  set  equal  to.  zero 
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C BASEO  ON  A fiT  TO  THE  «fSE3  I'  NaS  mOOIFIEO  FALLOUT  MOOEL. 

io  C hSEG  biological  OOSE  OCCURS.  IT  IAm  be  USEo  for  screening 

c distant  weapons. 

C THE  array  SARRY  is  OIHENSIONEO  9 A^O  SUPPLIED  0Y  ThE  CALLING 

C program.  If  JOO  IS  POSITIVE  IT  IS  aSSUmEO  the  yield  dependent 

C parameter  is  already  supplied.  if  JOO  has  magnitude  One  Only 
IS  C the  OONNmIno  distance  is  computed,  if  magnitude  greater  than  One 

c THEN  all  Distances  are  computed,  the  answers  are  in  the  array 

C SARRY 

C FILL  yield  dependent  PARAMETERS  WifH  JoO  "OtNO  ANSWERS  THEn. 
C..,,SARRT(7)  maximum  downwind  distance 
20  C...  SARRY(B)  .•  maximum  CROSSwinO  distance 

C...  SARRY(6)  .•  distance  at  Which  maximum  CqOSSwiNO  occurs. 

C...  SARRY (9)  --  MAXIMUM  UPWiNO  DISTANCE 


25  C0MM0n/FlScRN/J00iYIEL0.fiSS»H0S»Wn0»ShH»00SE»SARRy (9) 

IF  (JOO  .<>T.  01  GO  to  I" 

C YIELO  dependent  CALCULATIONS 

SARRYU)  ■ ALOGIO(YIELO)  « 1. 

30  S*RRY(2)  ■ i8o**‘TlELpwiooo.)**o.A 

return 

10  continue 

C NON  yield  dependent  calculations 

35  OISE  a DOSE 

VNO  a WNO 
SHA  a sHR 

IF(  HOB  .EQ.  0.)  GO  to  2I 

IF(  MOB  .LE.(SARRY<2)  - o.0l”50  To  22 

AO  c hob  Too  hIqh  for  any  fallout,  set  all  distances  to  zero. 

SARRY(6)  a 0, 

SARRy(7>  ■ 0. 

SARRY(P)  a I,, 

SARRY<9)  a 

a5  return 

22  continue 

C hOB  OOSE  adjustment 

SHOB  a H0B/saRRY(2> 

AFao.5a(j.«SHOB)a(i.-SMOB)*(2.*SHOB) ♦0,00i*SMOB 
50  OISE  a OiSe  /AF 

2l  continue 

OISE  a OISE/FISS 
KOO  a g 

IF(  WNO  .GT.  2.J  GO  TO  5 

55  C FORCE  all  winds  TO  AT  LEAST  2 FOR  SCREENING  CALCULATIONS 
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ll- 


C 


s 


c 


13 


C 

32 


)2 


C 

C 

C 


31 

C 


34 

33 


VNO  ■ ?. 

GIVE  SaHE  OOSES  for  NEGATIVE  OISTAmCES  FOR  SMALL  WINDS 
KOO  ■ 1 

continue 


1F(  OIsE  «GT.  10.)  00  To  31 
LOW  oosEaoe  fit 

XLWN  a AlOgIO(VNO) 

IF(  SHR  .QT.  1.3929)  GO  TO  \Z 

XSWO  a 60.8516  • 36.5?*4«SMA  ♦ i3. i363aSMA#SHA  -14.8*XLWN 
continue 

XLGO  a AlOgia(OISE) 

XLG  a xLgO  . SARRY(l)  « 1. 

XSW  a xSWO  . i5.«XLG  *<0.55  ♦ 0*T5iSHA  ♦ o.OoT5»VNO>»XLG**LG 
hAX  oownwIno  OISTANCE 
SARRY(t)  a XSW*VN0 

continue 

IF(  JOO  .OT.  1)  GO  TO  14 

return 

continue 

XSWO  a 21.5659 
GO  TO  i3 


continue 

IF  (OlSE  «GT.  100.)  GO  TO  33 
XLGW  a XlWn  • 1. 

CROSSWINO  OISTANCE 

SARRY(8)  • 160.»SHA*  SARRYn)*(2.2o*l  .XLOO)»  1.18a(4.  .XLOn) 
1 »XLGw 

OISTANCE  OF  max  CROSSWINO 

SARRY(6)  • «80»  ♦(1«»T  • 7»S*(XLGD  ♦ SMA))»VNO)  •«!. 


1 0.7s*«S*RRY<i)  • !•)> 

hAX  UpwInO  OIStAnCE 

SARRY{9)  ■ SARRY(1)*(  6.5  - XLGO  - l»25aXLGW) 
IF(  NOO  .EQ.  1)  SARRYI9)  a SARRV(7) 

return 


* 


continue 
high  oose 

IF(  SHR  .8T.  0.6)  SHB  ■ 0.6 

temp  a ShP  • 0.6 

XSWo  a 16.1  « 26.2*TEMP#TEMp  - B.UXLW^, 

XLGO  a ALOGIO(OISE) 

temp  a XlGO  - SARRYtl)  - i. 

XSW  a xSWO  . io.*TEMP*  <x.  ♦ o»T5*SH0  ♦ o ‘OOTSaVNO) ‘TEMpaTEMP 
S*RRT(7)  ■ XSX*VN0 

IF(SARRT«7)  ,LT.  0.)  SARRyIT)  a 0, 

IF  (JOo  .OT.  1)  Go  To  34 
RETURN 

continue 

continue 

TEMP  a XL<»0  - 2.  , . 

SARRY(B)  a 2,5aSHAaSARHY(l)#( (5o.»  2o»»TEMP)  - (17.5  -2,5aTFMP) 
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subroutine  LSCRN  CDC  6*00  FTn  V3.0.P241  OPT»i  ll 

1 *(XL«N  - 1.) ) 

I If  (SArRY(8)  .LT.  0.>SArrt(a)  ■ 0. 

OSH  a 6«S*S*RRY(1>*((130«.  60.*TEhP ) * (500.  • 2S0.*TEhP) 

1 *(XLHN  • 1.)  ) 

liS  SARRY(6)  • OSH*VNO  /20. 

IF  (SArRY(6)  .LT.  0.>SArry(a)  a o. 

SARRY(9>  a SXRRY(I)  * 2. 

IF(  KOO  .EO.  I)  SARRY(V)  . SARRY(T) 

RETURN 

120  ENO 
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SUBROUTINE  RSCRN  (l>€V:#2-S) 


A.  GENERAL 

This  subroutine  is  used  for  screening  Fallout  Distance.  It 

MfncSUL 

is  based  upon  equations  developed  by  R.  Mason  of  the  NM6€5  which 
are  implemented  in  the  SI/)AC  damage  assessment  modei 

The  use  of  this  subroutine  is  almost  identical  to  the  sub- 
routine LSCRN.  This  description  shall  only  indicate  differences 
from  the  subroutine  LSCRN.  The  major  difference  in  usage  is  that 
the  downwind  distance  te*  the  maximum  crosswind  distance  is  not 
implemented  in  this  subroutine.  The  calculation  of  screening 
distance  after  the  yield  dependent  parameters  are  determined^ is 
somewhat  faster  with  this  subroutine. 

B.  REQUIREMENTS  IN  THE  CALLING  PROGRAM 

The  requirements  are  the  same  except  that  6 yield  dependent 
parameters,  rather  than  2,  are  computed  and  stored  in  elements 
1-6  of  the  array  SCARY. 

C.  ALGORITHM^IMPLEMENTED 

The  height  of  burst  correction  is  computed  as  in  the  sub- 
routine LSCRN. 

The  following  minimum  or  maximum  values  are 

Sc(Wind  Shear)  ^ 0.05 

Y(Yield,MT)  i 0.001 

Dose  (corrected 

for  HOB)  _ 3000. 

For  W < 1 set  W = 3 and  S^  = 0.2 

c 

and  set  upwind  equal  to  downwind  distance 


For  upward  distance 

D = - (-2. 56928Y‘°^^°^'^  In^  ^Dose^W  gggggyO  . 13039^  2 ^ 
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Frr  saxiBiMi  crosswind  distance 
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SUMOUTmC  QKIM  (C«rd  Ddck 


A.  CmiKAL 

This  subroutine  is  s qulcic  aiesns  of  cslculstlnf  three 
types  of  Inltisl  ^clesr  n*distlon  Doses:  Prosit  Issau, 

SecondAry  3amu,  snd  Neutrons.  It  is  bssed  ufson  work  by 
L.  Spencer  snd  C.  £isenh*uer  of  the  NAtlonAl  &uresu  of  Standards. 

The  proapt  CAMsa  in  their  method  was  based  on  a calculation 
Involvi.^C  A sosMwhat  lengthy  numerical  integration  involving 
fireball  rise.  The  routine  has  a numerical  fit  to  those  results. 

The  calculation  for  the  other  two  types  of  doses  is  the  same 
as  In  the  original  calculation. 

I.  IIQUliCMENTS  OH  CAUIM  PR06AAM 

Communication  with  the  subprogram  is  through  the  common 
blocK  /QIHRPR/.  The  following  variables  must  be  defined. 

W Weapon  yield  in  kllotons  (0.1  i W < 33*000). 

XLV  Logarithm  to  the  base  10  of  V. 

KB  Height  of  burst  In  meters  (not  needed). 

HI.*!  Scaled  height  of  burst  in  hundreds  of  feet,  i.e., 

0 < HBB  < 13. 

lUiOO  Air  Density  in  grams/cm^ . Assumed  l.l  In  calculating 
promp*  gamsu;  My  be  any  value  for. 

ITP  Weapon  type:  1 ■ thermonuclear,  2 • Intermediate,  3 • fission. 

??  Fission  fraction. 

Slant  range,  meters 

CF  Collision  .'actor,  a value  of  2 Is  usually  used. 

FBE  Relative  Neutron  Biological  Effectiveness , 1 is  usually  used. 
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The  «ubroutln*  r*tarns  the  folloMlnf  vtrlablcg 


D05IKE  ProKpt  t lose. 

D0S3AM  Secondary  gaiMaa  dose. 
DOSXEU  Neutron  dose. 

DOSTOT  Sux  of  above  three  doses. 
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c. 


algorithm  inrlcmciitco 


1.  INTROOUCTIOH 

A coMpatcr  subroutln*  for  th«  CAiculatlor.  of  th«  Initial 
:tucl«ar  Radiation  Doa«  haa  baen  l«v*lop*d  by  C.  Elaanha^cr  and 
L.  3p«nee  of  th«  "latlonal  Buraau  of  Standarda.  TMa  aabroutln* 
C3iaput«a  th«  doa«  from  flaalon  product  gaavaa  radiation,  aacondary 
<aaaaa  radiation,  and  nautrona.  Tha  calculations  ara  taaad  upon 
a p*par  by  Franch  and  Hoonay.*  Tha  calculations  for  secondary 
saasaa  rays  and  neutrons  ara  »ada  from  aquations  of  tha  form 

D • a asp  b[axp(cR^^  ♦ dFg>]  , 

where  Is  tha  slant  ranc*  fron  weapon  to  Monitor  point.  This 
can  be  ImplaMantad  for  relatively  rapid  calculation.  Tha  calcu* 
lationa  for  tha  fission  pr>duct  gaMMs  dose,  on  tha  other  .hand, 
ara  such  More  lengthy.  They  require  More  coaiplax  expressions 
for  dose  as  a function  of  tia»a.  These  expressions  Must  be 
integrated  as  a function  of  tiMe  to  obtain  the  total  dose.*  as 
a result  the  coMputer  routine  which  iMplesMnts  these  equations 
is  a relatively  slow  calculation.  For  analysis  where  the  doses 
sktst  be  calculated  a large  nuMber  of  tiaies,  in  particular  in 

e 

daxiage  assesssent  calculations  involving  Many  weapons  and  SKsnitor 
points,  such  long  running  calculations  can  add  Most  substantially 
to  cjaiputer  requirements. 

An  algorithm  for  a more  rapid  calculation  of  the  fission 
product  gassaa  dose  is  described  below.  This  algorithm  is  a strictly 
nusaerical  fit  to  the  results  of  calculations  of  fission  product 
gamma  doses  over  a range  of  parasietric  values.  The  fit  is  gener- 
ally within  10  to  20  percent  over  the  range  of  interest.  This 
range  is  for  yields,  W,  ranging  from  0.1  to  10,000  KT.  scaled 
heights  of  burst  (the  height  of  burst  from  0 to  1,300  feet, 

*R.  L.  French  arxi  L.  *3.  %»ney,  "Irdtial  Radiation  Exposure  fPem  Nuclear 
Weapons,"  Rmilatlor  Research  Associates,  Inc.,  Interin  Report  cn  XT  tontract 
Ml  . DAHT2n-T2-r^i23,  ffU-TJOl,  1^  .^uly  1«'2. 

*1he  eseentla*  rsaacn  for  Inte^p^tlcr.  ia  due  to  the  ^-yvirih-nasd  •*  buoyanc) 

•f  the  fireball  which  not  only  chansrs  tne  dla*ar>te  betweer  aoirce  and  rr'elver, 
but  due  to  hangea  in  air  density  with  heisdit  'tvir^es  •dv*  rail  a*  ion  adm^rp  tlon 
ir  a *csg]lex  'aamer. 


• a - 1 « 


$ 


! 


and  slant  rari^as  ranglnc  frjm  either  the  slnlKoiB  slant  ran^e 
at  {round  sero,  or  the  «lnl»uM  slant  rar.{e  where  the  fission 
pr>duct  {asvaa  dose  Is  less  than  1/20  the  neutron  dose,  to  a 
auixlsHisi  slant  ran^e  where  the  fission  product  (aa»a  dose  Is 
about  lOfl.  The  algorithm  will  be  described  directly  first, 
followed  by  a few  cosMents  concerning  Its  development. 


I.  AL60R1THW  FOR  FISSION  RROOUCT  GAMMA  OOSCS 
A suxlmusi  slant  range,  SUM,  Is  computed  by 

SN.M  • 1,8<?8  ♦ 8a6.25-L  ♦ 111.2^1-L^  , 

where  L • log^^lW).  If  P.^  > SPM,  the  Dose,  D,  Is  0;  otherwise, 
the  following  procedure  Is  followed. 

An  "asymptotic  logarlt.hmlc"  dose,  , Is  computed  as 

follows.  Let 

P.  • 1,138.13  ♦ 34.3259L  ♦ 71.2003L^  ♦ 12.403«L^  - 9.7729L* 

♦ 2.83741L^  . 


°asy  • • 

If  Hg  > 0.2,  set  . P,  , 


^.1/3 


where  Hg  • scaled  height  of  burst  ((ft/(K7)  ^)/100), 

. -t-Hg  . c-M,^  . 

with  b • 1.2«1S«*10"^  ♦ 6.0937*10"^L  ♦ 3 . 10"^L^ 

♦ 1.53<*lO"^L^  - 5.?33*'‘10"^l‘‘  ; 

c • 9.9037»10*5  - 9.1*7-10"^L  ♦ 1.963*10“*L^ 

♦ 1.83616*  10'*L^  - 1.069*1C"*L*‘  ♦ 1 . 5l62 • lO'^L^  ; 

Compute  a difference  dose,  Dj,,  by  the  following  procedure. 

If  L < 2.«: 

Sg  • 362  ♦ 7*.3-L  - 55.90‘L^  • 3*.5?*L^  . 


-21. 


k. 


For  > S-,  let 

Q — B 


' °c  ’ • 


wh«r«  X • 100/R^  : 


• -0.015  - 0.005tH,  ; 

O B 

• 0.055  - 0.00135Hg  ; 


• "o  " *s”b  • 


And  for  L < 1 


• 0.552  ♦ 0.398L  ♦ 0.25L'  ; 
o 

*5  • 0.0518  ♦ 0.02995L  ♦ 0.01685L^  ; 


And  for  L > 1 


• -1.71  ♦ 2.78L  ; 
o 

• 0.1690  - 0.0615L  . 


For  P.  < S-,  l«t 
o s 


♦ c(x-100/Sn)  , 

r O O D 

wher«  and  n are  computed  aa  before  and 

^ . jO.22  ♦ C0.575(L^1)3*  . L i 1.602  , 

fO.22  ♦ Cl.ll**‘(’--0.6l)3*‘  , L > 1.602  . 

How  If  L > 2.«,  we  hAve: 

If  P^  > S- 

O — • B 


Dp  • bCi-x^)  , 


where  x • 100/P^  ; 


• -74.3819  ♦ 95.3347L  - «0.2<>97L^  • 6.o6245L^  ; 


x^  • 0.021‘^(4.76-U  . 


But  If  Pp  < Sg,  compute 


' • a - iP^  , when  P^  > 200  , 

D^*  • 3 - IP^  ♦ 6(200-?  ) , when  P^  < 200  , 

w O O O 


II-215 


«h€r«  a • -O.l^S****^ 


L 


1 

I 

♦ 0.13fc25L  ♦ 0.01i«2L^  ; 

^ . ^0.001623  - 0.000«03L  , L i * , 

#0.000206  - 0.000128(L-*iJ  . L > - ; 

6 • - S-O^e-lO***!  ♦ *.923*10*'l^  . 


Nom  let 


Do*  . H.  < 0.5  . 


jo  ’ ® 

#D  ' ♦ D..* 


o ®K*«S  • «B  " . 

where  D„  • 0.03S9  - 0.0121L  . 


'H 


And  let 


Finally,  let 


and 


Dp  • 10  ” . 


“r  • \.r  - “r  • 


"r 


and 


D . D*  . 5^  , 

where  F is  the  weapon  flaalor.  fraction. 


COWMCNT 


that  the  doae  aa  a function  of  asyaiptotically 

=*  o 


The  underlying;  activation  of  the  above  schean  was  obtained 
Tins  that  the  dose  as  a func: 

t 

is  an  eapresslon  of  the  for* 

D 


A*Wesp(-F^) 



which  would  be  obtained  fro«  a point  source  with  no  fireball  rise 
and  constant  absorbing  cross  section.  The  dose  becoses  close  to 

i:-2i< 


this  as]fisptotl7  expression  at  ijsc  levels  sT  IOC  to  i.JOOfl. 

ThviS  the  first  effort  Is  to  obtain  a linear  fit  at  far  ranges  for 


asy 


loc 


This  was  dene  assustlnc  *he  sase  slope  for  ai2  asyi^.totlc 
Curves.  The  fit  was  first  made  with  Kg.  • 0;  a correction  for 
height  of  burst  was  then  added.  The  height  of  burst  correction 
ranged  from  about  30  percent  (at  maximum  height  of  burst)  for 
O.I  )CT  yields  to  somewhat  over  2 at  large  yields. 


Using  the  "asymptotic  dose,"  the  logarithm  of  the  ratio  of 
asymptotic  to  actual  dose,  D,,  was  estimated.  This  Is  a function 
that  has  high  vaxues  for  low  slant  ranges  and  decreases  to  xero 
as  the  two  doses  approach  each  other.  as  a f..nctlon  of  la 

a^ost  linear  near  the  origin,  followed  by  a seg^nt  which,  for 
most  yields,  was  approximated  by  a parabola  that  Is  tangent  to 
the  linear  piece  at  their  Intersection.  The  Intersection  occurs 
where  the  slant  range  has  a value,  SRB,  that  was  determined  by 
Inspection  from  graphs  of  the  function.  At  a particular  height 
of  burst,  the  linear  segments  for  all  yields  below  250  KT  could 
be  taken,  without  too  much  forcing,  to  have  one  common  Intersection, 
for  larger  yields  to  have  another  different  cosmaon  Intersection. 

This  naturally  separated  the  calculations  Into  two  ranges  of  yields 
below  250  KT  and  above  250  KT.  These  Intersections  were  height  of 
burst  dependent  for  low  yields,  but  could  be  taken  as  constant  for 
high  yields.  (The  ordinate  of  the  Intersection  Is  negative,  which 
results  from  errors  In  estimating  the  asymptotes.  In  effect,  tr^ 
estlxMtlon  of  also  partially  compensates  for  errors  In  the 
asymptote  estimate,  and  gives  a two-step  correction.) 

The  slope  of  the  linear  sections  was  represented  by  a linear 
function  of  height  of  burst  for  low  yields,  with  the  coefficients 
for  the  linear  function  yield  deperulent.  For  *he  high  yields,  no 
height  of  burst  sensitivity  was  needed. 


For  small  ranges,  large  values  of 
was  added  to  the  linear  variation  whose 


1 F.^,  a 
coeff 1 


parabolic 
dent  was 


aegme 

yield 


* • w 

f! 


A ♦ « m 


1 

( 

«r.iier.t  lr»  tn*  low  yieli  r«nj?e.  For  tr.€  .«rc«*  >'1»13  r«nfe, 
thl*  procei^r«  ^;«v*  *r.  Inaieqa*:.*  fit,  •-  Tor  . • v«l^«>a  f F 
an  al*#rn*t!ve  proc^J^r*  was  ^sti,  r.a*«ly  «st  latar.  lr.<  . ^ as  a 

A • 

finctlor.  of  A linear  function  was  4Jcqw*atc,  extept  f r va.^ss 

of  uni*r  200  fee*  , wn^r?  a partt/0*lc  aep^nt  was 

7h«  a.isorltn*  used  »ay  se«K  a rather  Jerry-oullc  assestlaf**^ 
of  curve  Tix.tlr.gi  procedures,  as  In  on**  sense  It  Is.  The  n-*erl*a. 
values  were  obtained  either  froK  graph  paper  or  slaple  least 
squares  polynosdal  fits.  The  ratloruile  for  this  approach  Is  that 
a function  of  t.hree  variables  Is  to  be  fl*,  and  there  Is  no  a 
priori  wav  of  determining  the  functloriS.  T^rttg  needed  for  efficient 
fitting.  The  variation  of  d^se  as  a function  of  slant  range  was,  | 

In  fact,  well  approxlaated  as  a ratio  of  'w  polynomials,  'unfor- 
tunately the  coeff  Icler.ts  of  these  polyncala.s  did  not  systesat  lea, . 
vary  as  a function  of  yield,  or  .helg.ht  of  burst,  rendering  the 
dcvelopsMnt  of  an  approximation  valid  for  any  yle,d  or  height  of 
burst  difficult.  A slaultanecus  estimation  technique  with  all 
three  Independent  variables  Ir^cluied  aeecsed  required.  Although 
this  was  not  attes^/ted.  It  appeared  llwely  trait  rather  high  order 

terms  wo>,ld  be  needed  for  any  adequate  polynomial  approximation. 

• « • m 

Thus  t.he  method  of  "cur.  and  fit"  seemed  more  appropriate. 

The  orlglr.al  algorithm  a.nd  the  approximation  were  Implemented 
or.  a Control  Data  6»0C  computer,  arul  c..>mpared  over  a range  of 
yields,  heights  of  burst,  and  slant  ranges.  The  average  time  per 
calculation  of  all  three  types  of  doses  for  the  original  alg  - 
rl'.hm  was  ''.fc-'  seconds,  a.nd  for  t.he  approxlmatl  >n  0.00i"6  seconds. 

A display  of  the  accuracy  of  the  approximation  la  presented 
In  Table  1 where  the  mlnlsum  and  maximum  values  of  t.he  ratio  of 
fission  product  of  doses  computed  by  the  approximation  to  that  c^.'s- 
p.,ted  by  the  nutierlcal  Integration  la  presented  for  various  yields 
and  scaled  heights  of  burst  over  slant  ranges  of  Interest.  The  i 

slant  range  of  interest  for  this  *ab.e  Is  defined  as  any  slant 
range  where  the  fission  product  g uuaw  dose  Is  over  lOR,  and  where 
20  times  the  saixlmui:  of  either  the  estimated  or  actual  flsslofi 


Tibi*  I.  ftIMMUH  AND  HAIlWUW  RATIOS  Of  ESTIMATED 
TARCE'^  OOSES 


I 

! 


Scaled  Hel^nt  of  iurst  (ft/(*T)'^^) 


Yield 


(ICT) 

0 

100 

180 

400 

750 

1250 

0.1 

0.99 

0.99 

0.99 

0.99 

0.99 

0.99 

1.00 
1 .00 

1.00 
1 .IK) 

1.00 
1 .00 

1 

0.91 

0.99 

0.98 
1 .00 

0.99 
t .00 

0.99 

1.00 

0.99 
1 .00 

0.99 

1.00 

10 

0.98 

1.03 

0.98 

1.03 

0.9S 

1.02 

0.98 

1.01 

0.97 

0.99 

0.94 

0.96 

40 

0.87 

1.11 

0.90 

1.10 

0.92 

1.09 

0.95 
1 .06 

0.95 
1 .02 

0.98 

1.02 

100 

0.92 

1.17 

0.96 

1.08 

0.98 

1.07 

0.99 

1.04 

0.99 

1.02 

1.02 

1.03 

300 

0.97 
1 .OS 

0.97 
\ .04 

0.97 
1 .04 

0.97 

1.03 

0.95 
1 .02 

1 ,000 

0.94 

1.11 

0.95 

1.07 

C.95 

1.08 

0.09 

1.12 

0.94 

1.10 

10,000 

ii.SO 

0.99 

0.50 

1.12 

0.49 

1.10 

C.51 

1.10 

0.79 

1.30 

30,000  1.06 

0.66 



1 .57 
0.71 

0.76 

1.24 

0.69 

0.95 

•• 

_J  " 

rence  li 

1 gene: 

-a.ly 

within 

10  pe 

rcent 

of  the 

pr^-ct  gaariiM  do*e  except  for  the  yleldi  of  lOXT  end  3CXT.  For 
thee*  lerjer  weepone,  h.rwever,  the  overpreee are*  tt  the  doee 
rer.ges  of  Intereet  ere  generally  we*,  over  3“  P»l.  *»  can  be  see.. 
In  Table  1,  and  as  is  ever,  •ore  evident  fro«  llstlnfi*  as  a function 
of  slant  range,  the  errors  are  i^lte  systeMtlc.  Thas , 1"  desired. 


furt.her  corrections  could  be  readily  developed  to  saice  the  estimated 
error  still  closer  to  the  actual  error.  Such  corrections  w-uld 


require  possibly  a 20  percent  to  5"  percent  Increase  In  ca.  ru ..a*  lor. 
tlsk*  for  eacr  subroutine  call.  se  of  this  aultlpie  approxl*ar  1 >r. 


*ec.hfilque  Is  njt  ur.typlca.  of  this  apprjach,  where  tJv  error  bounds 

I 

achieved  are  often  leper.dent  prlsarlly  jr 


developing  the  appr.xlMt  1 ;ns . 
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the  effort  expended  In 
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suMoirnxE  foist  (vtyfe,  lock,  pus,  dist)( 


A.  uEliERAL  DCSCRIFTIOli 

Tlilt  tubroutlM  co«put«t  tJie  4ist*«c«  (DtST)  in  aautical  ailet 
at  wbich  a givaii  valu#  of  ovorprotaur*  (FRiS)  in  F$1  occurs  fro«  a 
1 MT  dotoiiation.  Tli«  dittaiicos  ar«  basod  ok  a fit  to  tba  data  ia 
Clattoat  **Tba  Effects  of  Xucler  Heapoas,”  published  by  the  AEC  ia 
1F*2.  The  data  uere  takea  from  the  Height  of  lurst  curves  oa 
pages  13^  aad  13f.  Three  Height  of  lurst  optioas  are  available 
as  deter«iaed  by  the  parajseter  VTYFE.  They  are: 

NTYFE  • 1,  Surface  iurse 

VTYFE  • 0,  lurst  Height  Maittited  distaace  for  l</^ontour, 
i.e. , 7.400  ft 

VTYFE  • *1  The  distaace  coaputed  is  the  distaace  at  the 

of  the  height  of  burst  curve*  i.e.*  for  the  height 
of  burst  which  gives  the  largest  distaace  at  the 
calling  pressure. 

If  the  parameter  LOC\'  is  set  equal  to  one*  the  input  para«eter 
PUS  is  interpreted  as  LOC^^fFRES),  a value  of  0 is  interpreted 
as  thegregular  pressure.  This  feature  aay*  on  occasion*  allow 
saving  taking  of  a logaritha. 

The  foraulas  for  pressure  as  a function  of  distance  are  the 
sa»e  as  in  the  subroutine  FROMFT  except  that  the  inverse  functions 
are  calculated  there. 

I.  REQUIREICXTS  OK  THE  CALLIVC  FROCRAM 

If  the  subroutine  is  called  with  a value  of  FRES  less  than 
0.00001*  for  LOCV>l*  or  FRES  less  than  <>S  for  LOC\'*l*  a distance 
of  99919.  is  returned.  If  the  subroutine  is  called  for  a 10  psi 
airburst  (VTYFE*0)  aad  a pressure  greater  than  31  psi.  a distance 
of  0 is  returned.  In  either  case  no  error  aessage  is  given.  The 
only  coMunication  of  this  subroutine  with  the  calling  prograa 
is  through  the-  paraaMter*. 


Fa'Jt  -tutuia?T  vtuicp 


C.  ALGORITHM  IHPLEMCNTEO 


For  a surfact  burst  or  10  psi  airburst,  tht  aquation  for 
prcssurt  as  a function  if  iistanca  is  givan  by 

lOfjQ  dist  • A*i  logjQ(FR£S/20) 

For  surfaca  burst  (.VTYfE  • i) 

A • .0S9b  (corrasponds  to  a distanca  of  1.117  alias  at  20  psi 

• • -2.2SS  p i 20  psi 

• *1.I2S  p < 20  psi 

For  Optiaua  burst  Haight  to  aaviaita  prassura  (NTYFE*  *1) 

A • .1903  (corrasponds  to  a distaaca  of  l.SS  alias  at  20  psi 
I • -I.ISOS  p 1 20  psi 

• • 1 . S2  p < 20  psi 

For  10  psi  Optiaizad  burst  Haight  (>fTYPE*0) 

Dist  • 0 31  psi  1 PRLS 

Olst  • (3b-PRES)19.5  20  psi  1 PRES  i 31  psi 

Dist  • 0.922  ♦(20-PRES)/5.1  15  psi  i PRES  i 20  psi 

LogjQ(Dlst)  • 0.2717  •(logjQ(15/PRES))1.^5  PRES  < 15  psi 

(This  corrasponds  to  a distanca  of  1.9  alias  at  a pressure 
of  15  psi.) 

These  aquations  fit  the  prassura  to  within  10  percent  over  the 
range  of  1 to  200  psi. 
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SUIltOUTISt  PROMPT  m 

A.  GENERAL  DESCRIPTION' 

This  suErsutint  co«{)ut«s  vaIim*  of  ovorprossuro , iaitiAl 
nucltar  radiation,  and  initial  tRormal  enargy.  givan  valuaa  of 
waapon  yiald  and  diatanca.  Coanaunication  with  tha  »ain  prograa 
is  through  tha  block  coaaon  to  possibly  shortan  tha 

calling  tlM  sinca  this  subroutina  »ay  b«  rapaatadly  usad.  Tha 
paraaatar  JHTPR  (callad  NTYPE  intarnally)  salac*s  haight  of 
burst  options. 

Thasa  ara 

JHTPR  • 1 Surfaca  burst 

JHTPR  • 0 Haight  of  burst  to  saxinisa  tha  distanca  on  tha 
ground  for  tha  10  psi  contours.  This  haight  of 
burst  is  7400  ft  for  a 1 HT  waapon 

JHTPR  • *1  Tha  haight  of  burst  is  variad  for  avary  distanca 

so  that  at  that  distanca  tha  haight  of  burst  naxi* 
■izas  tha  prassura  obtainad.  Tha  prassuras  ara 
always  thosa  at  tha  araa  of  tha  haight  of  burst 
curvas.  This  option  is  isplasMntad  for  tha  prassura 
calculation  only.  i ■ 1 nualasr 


If  tha  paraaatar  JTINR  (callad  LONG  intarnally)  is  0 only  tha 
prassura  calculation  is  carriad.  If  JTINR  is  aqual  to  1 tha  nomal 
initial  nuclaar  radiation  and  thamal  radiation  calculations  ara 
carriad  out.  In  thasa  initial  nuclaar  radiation  calculations  an 
aabiant  air  dansity  of  l.ll  is  assunad.  If  JTINR  aquals  2,  a spacial 
initial  nuclaar  radiation  calculation  is  parfornad  which  a fila  of 
data  nada  for  ona  of  3 yialds,  10  KT.  300  RT,  or  1 HT  and  for  thraa 
air  dansitias,  1.1,  1.2.  or  1.3. 


I 


j 


I.  ll£(^IX£>iE.VTS  Clh  rm  calling  program 

Since  this  routine  aey  be  used  rather  often,  the  calling 
prograa  is  required  to  monitor  the  communications  through  the 
block  common  EFFCAL.  The  parameters  ^TPR  and  JTIN’R  must  be 
defined  for  each  call  for  addition.  The  following  information 
must  be  supplied  or  is  returned: 

For  JTINR  • 0 

cube  root  of  the  yield 
distance  in  nautical  miles 


Supply  YLOPCR 
’•  DSTP 
Obtain  PRiSP 

..  au; 

For  JTIXR  • 1 

The  above  plus 
Supply  YLOP 
••  THRPVS 
Obtain  RAOIP 
TMERP 


pressure  in  psi 

logarithm  to  the  base  IR  of  the  pressure. 


weapon  yield  MT 

thermal  visibility  in  units  of  (1/meters) 
initial  nuclear  radiation  (rads) 
thermal  radiation  (cal/cm*) 


For  JTINR  • : 

The  above  plus  OCXIP  (ambient  air  density). 

The  yield  must  have  a value  of  .04,  .3  or  1 MT;if  none  of  these, 
a default  value  of  .04  is  assumed^ 


^he  air density  must  be  1.1,  1.2  or  1.3;  if  none  of  these,  a 
default  value  of  1.3  is  assumed. 

C.  ALGORITHM^ IMP LEMENTEO 

For  overpressure  the  pressure  distance  relations  are  obtained 
from  a prt  of  the  data  in  the  Height  of  lurst  curves  in  "Effects 
of  Nuclear  beapons,"  lRb2.  The  equations  are  the  inverse  functions 


:-23- 


■j 


of  those  impleMnted  in  the  subroutine  PDIST.  The  input  distance 
DSTP  is  divided  by  the  cube  root  if  the  yield  obtain  the  1 MT 
distance  DIST.  To  obtain  the  pressure  in  psi  given  the  distance 
in  nautical  ailes  for  surface  bursts  (NTYPE  • 1) 

logj^fPRES)  • A*l  10|jq(DIST/1.147) 
where 

A • 1.301  (equivalent  to  20  psi) 

- . ,-2.2SS  OIST  i 1.14- 

• -1.I2S  OIST  > 1.147 

For  naxiaim  air  burst  distance  (KTYPE  • *1) 

logjo(PRES)  • A*l  1o|jq(0IST/1.5S) 
where 

A • 1.501  (equivalent  to  20  psi 

, .,-l.l30  DIST  i 1.55 

• '*1.52  OIST  > 1.55 

For  10  psi  optiaised  air  burst  (NTYPE  • 0) 

PRES  - 51*19. 5*DIST  0 i DIST  < .922 

PRES  • 20*5. KOIST*. 922)  .922  i DIST  < 1.90 

logjg(PRES)  • 1.1*01*1.75  logjp(0IST/1.90)  1.90  i OIST  i - 

The  pressure  is  forced  to  the  liaits  of  .001  to 

99999  psi. 

% 

The  error  in  the  fit  is  within  10  over  the  range  froa 
1 to  200  psi. 

The  general  calculation  for  initial  nuclear  radiation  is 
based  on  a fit  of  radiation  to  slant  range  of  the  fora 


RADP 


• XS&  •xp(>IRD’SR)/SR^ 

wKerc 

SR  Is  th«  slant  range  In  natars 
ARD  • Yiald- (C-3.2xlO^^  logj^CyiaU) 
with 

C • 3.2  X 10^*  JFITRR  • 1 

C • f.2S  X 10^^  jrrFR  • C pr  -I 

IRO  • C,-0.I2  X 10*^  lOg|0(yi«id) 

with 

Cj  • 3.3S  X 10’^  JFTFR  • I 

Cj  • 3.02  X lO'^  JFTFR  • 0 or  -1 

Tha  special  calculation  has  a fit  of  the  fora 

lo*10 

Tha  values  of  A*l  for  tha  9 different  co«binations  of  yield 
air  density  are  available  from  the  coding  sheets. 

The  aaxinuM  allowed  value  of  radiation  10^  rads. 

The  thermal  radiation  is  calculated  from  the  equation 
THER  • 1/3  Y exp(-TMRFVSSR)/(4TSR‘). 

The  thermal  radiation  is  limited  to  10^  cal/cm*  . 
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SUMOin'l.M.  JUDU.  ( 


4.  GENERAL 

The  subroutine  was  oriflnslly  developed  for  the  pro|rMs  AXDANTE 
to  suMisrire  the  effects  of  llstt  And  Initlsl  Suclesr  Rsdistion  on 
a single  city.  Due  to  Its  specialised  nature,  and  Since  it  only 
produces  output.  It  Is  not  fully  docusented  here.  The  subroutine 
obtains  for  each  of  a list  of  weapons  the  distance  to  each  tract 
of  a city  and  then  computes  probability  of  blast  kill  and  injury 
directly  fro«  kill  and  injury  arrays.  The  subroutine  RROMfT  fur* 
nises  values  of  initial  nuclear  radiation  which  are  then  converted 
into  probability  of  radiation  kill.  Finally,  a variety  of  formats  are 
used  to  exhibit  the  results. 

I.  REQUIREMENTS  ON  CALL1>»C  PROGRAM 

The  calling  program  must  supply  the  following  block  common 
variables.  Definitions  of  t>e  var.ables  are  contained  in  the  block 
common  descriptions. 

/TMPAND/  Only  LSTAPE  is  needed.  If  this  control  parameter 
is  1 the  output  is  also  sent  to  an  output  tape. 


/NPNPRi/ 

/ST14TA/ 

/CITYPR/ 

/VULPR/ 


1 ep  • number  of  weapons 

XZ  • X weapon  coordinate  sm  naut.  mile 

YZ  - Y weapon  coordinate  ^ naut.  mile 

X,Y  coords  of  tracts  and  POP  of  each  track  in  naut. 
miles  and  same  coordinate  system  as  X2.  Y2 

\A.MEC(2R)  *cl  tv  name 
N'TVCTS  -number  of  tracts 

DSO  me«n  lethal  radiation  dose 

SICSO  standard  deviation  of  SIGSO 

CSO  mean  injurv  radiation  dose 


I 

I 


L 


/wp\rR/ 

/PKPt/ 

/im/ 


siCLse 

ff 

Pti 

£tSX 


ftt&ndard  davlation  et 

tnt*r»d  1st  slMi^nt  o^PFIL\, 

initisl  nuclSAr  rsdistloci  prot*ctlo«  fscter 

weapon  raltabillty 
cube  root  of  weapon  yield 


kill  probability  and  injury  probability  tables 
fro«  FLPKMU  or  FLPKA 

yr  tape  assignment  if  LSTAPE  • 1 


The  subroutine  uses  kF¥0At.  to  coamunicate  with  subroutine 


PROMPT.  The  subroutine  PROMPT  (and  ..TMiOA)  Bust  be  available. 
C.  ALGOR  I TIMS  IMPLEMENTED 


For  each  weapon  the  probability  of  blast  kill  is  cosputed  as 
in  the  subroutine  OKEPAS,  i.e.,  by  linear  interpolation  if  the 
PK'distances  squared  array.  The  probability  of  blast  injury  is 
coaputed  the  sane  except  that  a probability  of  injury  distance 
squared  table  is  used.  From  several  weapons  the  survival  or  noninjurv 
probability  is  the  product  of  probabilities  for  all  weapons. 

Far  nuclear  radiation  the  probability  of  radiation  kill  or  injurv 
is  found  by  accumulating  radiation  doses  for  all  weapons  to  the 
present  one  and  using  the  cumulative  noraal  function  with  appropriate 
values  of  mean  lethal  or  mean  injury  dose,  and  standard  deviations, 
to  find  the  total  kill. 

These  calculations  are  done  between  lines  It  and  12S  in  the 
program. 

Combined  effects  are  computed  by  assuming  in  most  cases  the 
probabi 1 i t ies  of  the  various  effects  are  independent ,wi th  the 
obvious  condition  such  as  no  killed  person  can  be  listed  as  injured 
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SUIROUTI.VE  TRDCL  CMC* 


A.  CEXERAL 

This  sabroutlnt  confutes  effects  fros  different  vespons  on  s 
set  of  selected  trncts  for  s partlculnr  city.  It  was  orifinslly 
used  in  program  AXOA.VTE  to  focus  on  coaparison  of  blast  effects 
and  initial  nuclear  radiation  effects.  For  each  weapon  the 
pressure^  thenal  radiation,  and  initial  nuclear  radiation  are 
cosiputed  and  listed  along  with  naxinun  values  of  these  variables 
and  conbined  weapon  injury  and  survival  probabilities. 

1.  REQUIREMEVTS  Oh  CALLlXC  FROGRAM 

The  requireaents  on  the  calling  program  are  basically  the 
same  as  with  the  subroutine  RAOhL.  The  following  connon  block 
variables  aust  be  defined. 

/TMFAhD/  .NSP  • the  absolute  value  of  NSP  is  the  niaiber  of 
tracts  to  be  studied. If  NSP  is  positive  these 
tracts  are  selected  in  a regular  fashion;  if  negative 
they  are  selected  at  random. 

/kfPXFRI/  xp  - number  of  weapons 

XZ  • weapon  E*b  location  (nai) 

YX  - weapon  N*S  location  (nai) 

/STS4TA/  X • tract  E-h  location  (nai) 

Y • tract  N*S  location  (nai) 

POP  - tract  population 

/CITYPR)  HAmC  - city  naae 

TOTPOP  - city  total  population 
NTRCTS  ■>  number  of  tracts  in  citv 

/VULPR/  PSISJ  • mean  Injury  overpressure 
OSO  • mean  lethal  dose 
SteSO  • std.  dev.  of  mean  lethal  dose 
CSR  • std.  dev.  of  mean  injurv  dose 


m A 


I 


I 

SICCSO  - Sid  icy.  of  mean  injury  io»e 

PF  - protection  factor  for  initial  nuclear  radiation 

/hPNpR/  OtL  - weapon  ieliverv  probability 

NTYPA  - hifh  if  burst  indicator;  see  subroutine  PROffT 

FLOKA  • cute  root  of  weapon  yield 

/PKPR/  probability  of  kill/injury  vs.  distance  squared  arrav$; 

filled  by  subroutines  FLPKA  or  FLPKH^. 

The  subroutine  produces  listings  on  the  standard  output  media. 

The  subroutines  PROMPT.  CUMKOR,  and  CALR.N  must  be  availab.e 
C.  ALCOtlTHMS  IMPLEMENTED 

The  distance  from  each  tract  studied  to  each  weapon  is  calcu* 
latcd  and  effects  computed  by  subroutine  PROMPT. 

For  blast  the  overall  probability  of  survival,  or  being  uninjured, 
is  the  product  of  the  individual  probabilities  from  each  weapon. 

For  radiation,  the  doses  arc  summed  and  divided  by  the  protection  ^ 

factor.  The  probability  is  found  from  the  cumulative  normal 
function.  The  results  arc  listed  for  weapons  in  the  order  input 
in  /hPSPRl/. 
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A.  general 

This  subroutiM  was  d«v«lop«d  to  input  population  data  and  \ 

w 

aconoaic  data  by  county  to  the  profraa  ALLEGRO,  based  upon  the  I 

National  Nodal  Network  definitions  for  1960  census  data  extrapolated 

to  19'^ as  described  in  !OA  Paper  P**60.  It  is  retained  in  the 

NEVUKS  systea  at  least  until  the  19*0  census  update  of  population 

data  is  available.  It  also  provides  a a«ans  of  correlation  with  ^ 

the  earlier  data  bases. 

This  subroutine  also  associates  with  each  county  in  Area  ARM 
aaft  coverage,  and  with  each  city  and  terminal  AIM  site  coverage. 

B.  REQUIPXMENTS  OK  CALLING  PROGRAM 

The  calling  program  must  have  available  i.nput  data  tapes: 

The  population  tape  derived  from  the  National  Voaml  Network, 

IDA  Tape  No.  , on  input  tape  unit  1*.  the  county 

economic  tape,  IDA  Tape  No.  , on  input  tape  unit  Z if 

the  economic  option  is  used,  i.e.,  switch  J£CO«l. 

If  the  terminal  AM  option  is  exercised,  switch  JTABM*1,  i 

then  city  10  niaiber  for  each  defended  citv  must  be  available  in 
the  common  block  AIMPR.  If  in  addition  the  terminal  defense  bvpass 
option  is  off,  JTAID  is  not  equal  1,  then  the  defense  “price**  must  1 

also  be  available. 

If  the  area  ABM  option  JAABM  is  1 and  the  area  defense  avoidance 
option  JAAVO  is  on.  then  for  each  area  defense  site  the  site  latitude, 
longitude,  cosin#  of  the  latitude,  and  site  coverage  radius  is  needed. 
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C.  ALGOR ITWS  IMRLE>«-VTED 

The  prosraa  reads  valoes  of  county  and  city  location,  population 
and  sice  and  places  then  In  the  appropriate  coMaon  block  locations. 
Econosic  data  is  read  and  stored.  If,  for  son#  reason  the  county 
Identifiers  are  different,  an  error  stop  occurs. 

The  tensinal  ABM  option  identifies  defended  cities  and  inserts 
the  city  price.  The  area  ABM  option  places  a city  with  the  nearest 
ABM  site  if  the  city  is  under  the  coverage  of  a site.  Other 

options  nay  be  Inplenented  If  desired  and  controlled  by 
the  parameter  JROOT. 

The  defense  options  can  be  used  as  a aechanlsn  to  avoid  targeting 
of  certain  cities  for  other  purposes,  for  eaanple,  if  a set  of 
cities  have  already  been  attacked  by  other  weapons. 


